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Je desire receuoir - sans engagement - votre 
documentation sur les cartes Spoedisk''" 



Nom.. 
Adrcssc.. 



L'anti-disque 

speed isk™, 
la RAM Card a memoire permanente 

Ropidife Temps d'accfes 6 rinformotion ; 0,2 ms 
(100 fois plus rapide que les disques 
durs...). 
Par exemple : 

deman-age sur Basic.System en 3 s. 
AppleWriter disponibte en d peine 1 s 

Fiabilite ConstltueedecirciitCMOSdtT^s 

faible consommotion. Speedisk"^ est 
aussi fiable que I ordinateur lui-m§me. 
Elle est insensible d Tenvironnement. 

Capacite Speedtsk™ est proposes en quo+re 
versions ; 

1 IVIoCl 048 576 octets) 
384Ko e)denslb!8 6 1 Mo 
avec horioge compatible ProDOS 
(pour ies Apple )(+, //e) ou sans OIGSJ 



Compaftbilite 



100% compotibie avec ProDOS Cc'est 
un volume). Speedisk'^" fonctlonne sur 
Apple )Ct, sur Apple //e et sur Appie 
IIGS. 



Prix Lecteur de Pom's, vous b^n4ficiez 
d une remise de 10 % : 



SP400 

384KO 
SPIOOO 

1 Mo 



SP400H 

384KO horioge A, 
SPIOOOH 

1 MO riorloge dpSeW 



3591^ 
£391,00 

4122,00 
5 922,00 



Garantie Speedlsl;™ est une fabrication 

frangaise gorontie un an par echange 
de la carte. 

Banc d'essai dans la revue Pom's n" 31 



Vente par correspondance, Logma S.A. 

documentation, 12, rue d'Anjou 
renseignements 78000 Versailles 

T6I: (1)39 51 2443 

Speedisk™ est une marqu© depose© de 
Thot Informatique® - France 
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AppleWorks : 

des macro-commandes 
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Initiation : 

Le passage des parametres 
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Les TimeOut 



Eric Weyland 




Page 28 



Jiisqu'a 72 points 
avec ^"^'^^ 
MacWrite 



A I'essai : QyerVue 2.1 
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Apple II for ever : 

Jean-Yves Bourdin 
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Special repondeur 
telematique 

Repom*deur 

• mode d'emploi Apple II page 33 

• mode d'emploi Mac page 50 

• progj amine Apple II page 35 

• programrtie Mac page 53 

• syrmptiqiie Apple II page 35 

• s^'noptique Mac page 51 
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mande Electronique 
^SE Mac 




dBASE® Mac est disponible. 

C'est le plus puissant systeme de gestion 

de base de donnees relationnelle pour 

Macintosh™, 

A la difference des autres bases de 

donnees, vous I'utilisez 
sans aucune 

connaissancc 
de la 

program- 
mation. 
Commcnccz 
par creer et 
relier vos 
fichiers. La 
modification d'unc information 
entrainera la mise ^ jour des autres. 
Automatiquement et immediatement 
Et souvenez-vous qu'avec 
dBASE Mac, tout est realisable sans 
programmer. 

Cliquez simplement la souris et vous 
visualiserez vos fichiers de mille et une 
fa^ons. 

Toujours sans faire appel a la 
programmation. 

En inserant des polices de caracteres 
issues de MacDraw®, vous creez les 
rapports les plus simples aux plus 
sophistiques. lis apparaitront a Tecran, 



La Commande Electronique 

7. RUE DES PR1A3 - 27950 SAINT-PIERRE DE BAfLLEUL 
T^L. 32 S2 S4 D2 TCLEX LCE 18D 855 FAX 32 52 54 46 




tels qu'ils seront imprimes. 

Nous ne parlous pas simplement du tcxtc 

et des graphiques. Avec dBASE Mac, 

vous pouvez memc incorporer des photos 

au sein des fichiers. 

Toujours sans programmation, vous 

importez des donnees issues de dBASE IB 

PLUS ou de n'importe quel fichier 

ASCII. Tout cela, grace au systeme d'aide 

intcgre et aux menus deroulants du 

Macintosh. 

Mais si vous voulez aller encore plus loin, 
un puissant langage de programmation 
permettra de developper des 

applications. i X - 

Vous desirez bon de commande 

une documen- 
tation 

complete ou 
assister a une 
presentation, 
alors, n'hesitez 
pas a contacter 
votre reven- 
deur agree 
Apple. 
dBASE Mac 
est disponible 
au prix de 
3 950 F (HI). 
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A retoumer a : 
La Comraande Electronique 
7, rue des Prias 

27920 SAINT PIEHRE DE BAILLEUL 

Nom : _._„ 

Soci^;t^ : „■„_,„, 

N" ; - Rue ; 



ViUe ; 

Code postal 
Telephone ; 



□ Je vous commande ~ exemplaires de 
la prise en main dBASE Mac, au prix 
de 50 F TTC. Reglement par thetjut 
joint a la commande. 

□ Eiivuyez'iiioi une documentation 
complete sur le logicie! dBASE Mac. 
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"EditoriaC 



Pom's sur Minitel, 
aujourd'hui 



Pom's est bien plus la revue des Apple que cellc dcs Apple // 
avec un cahier Mac : eomme Minitel 27, Kriiptos, InterPom's, 
T Pom's, Civ, nous vous proposons S nouveau des program- 
mes communs aux Apple // et au Macintosh, II s'aglt de 
Pom_Link et R6poni*deuT. deux de ces programmes qui don- 
nent 4 un seul num^ro la valeur d'un abonnement. 

(1) 39 53 04 40, tel est le num6ro de t^lfephone que Pom's met 
d. la disposition de votre Minitel 24 heures sur 24, Dds 
aujourd'hui, vous y d^couvrirez le rSpondeur t6l6matique de ce 
numdro. rdpondeur pret 4 enregistrer vos messages et, pour- 
quol pas, vos commandes ; void done la possibility d'essayer 
un nouveau programme de communication avant d'aciieter la 
disqtiette. Qui dit mleux ? Ce nouveau numdro de telephone 
est proniis ^bien des d^veloppements mais, ran^on du succSs, 
pardonnez-noue en cette p^rlode de mise en service quelques 
tonalltes "occupe". 

S'il est un service qui vous tlent, etqul nous tient, a coeur, c'est 
blen I'assistance teiephonique pour la mlse en ceuvre de nos 
programmes ; c'est une charge importante, mais elle nous 
semble capltale. 

Nous comprenons que ceux qui manlfestent leur fid6lit6 par un 
abonnement en attendent plus d'efficacit6, ausei nous travail- 
Ions d des solutions : rendez-vous au numero 35. 



Pom's est une revue independante non 
raltachee a Apple Computer, Inc. ni 
a Apple Computer France S.A.R.L. 
Apple, le logo Apple, Mac et le 
logo Macintosh sonl des 

marques deposees 
d' Apple Computer, Inc. 
IBM est une marque deposee de international 
Business Machine. 
PC et AT .?ont des marques deposees 
de la Suciel^ IBM. 

®£diliuiis MEV 1988 
Toiite TEproductinn integrate ou partielle, 
effcctude par quelque piocede que te suit, sajis 
iaccord ecrit d'£di lions MEV, constitue une 

contrefa^on. 
Loi du 11 mars 1957, articles 425 el suivants 
du Code Penal. 
Droits de traduction, de reproduction et 
d'adapiation reserves pour lous pays. 



Comme tout service gratuit, cette assistance comporte un 
sympathique sottisier (qui occuperait bien un numero com- 
plet) tel le cas de cet utillsateur d'InterPom's - au demeurant 
peu aimable - qui avait quelques soucis de communication : 
11 s'aglssait d'un pirateur de base dfipourvu de mode d'empioi, 
qulexlgeait une aide ! Heureusement, notreflegmcnous aide... 

Bondage ? nous recevons 4 I'heure de ces llgnes encore bien 
des rfiponses ; d^poulllement dans le prochain num£ro mais 
d^j^ une dominante apparait, un succ^s pour la rubrlque 
Apple ///or ever - doutez-vous encore de I'lnventivitfe des 
developpeurs - et des prograrames de communication. 

Herve Thiriez 



Pom's n° 34 





e programme en assembleur 
prcsente ici est une evolution de 
cclui de Christian Guerin paru dans 
le numero 3 de Pom's. II fonctionne 
dans les memes conditions et 
s'utilise de la meme fa^on. 
L' evolution reside dans le fait qu'il determine 
la nature de I'ecran et donne aussi bien la 
copie d'un ecran en 40 colonnes qu'en 80 
colonnes. 11 fonctionne sous ProDOS et DOS 
3.3, 

Le petit programme BASIC ci-joint donne un exemple 
d'utilisaiion. 



Comment faire ? 

11 suffil de sais^ir et sauvegarder la recapitulation 
TXT.DMP.C (sauvegarde ; bsave txt.dmp.c, 
A$30o, L$60). T.e prngramme se charge en page 3 
(cc n'csi pas ucs original, mais sous ProDOS, quelle 
simplification) ; done, I'une des premieres lignes de 
votre programme Basic sera : 

20 PRINT CHR?(4) "BLOAUTXT.DMF.C" 

A chaque. fois qnft vnus avez besoin d'envoyer une 
tuple d'ecraii a un periphdrique (cc sera bien souvent 
riniprimante), faites : 

PRINT CHR$(^} "PR£.l"; CALL 768: PRINT CHRS ( 
4} "FH£0" 

Ceci dans le cas ou le peripherique desfinataire est 
connecte au port 1. Veillez a ce qu'il n'y ait pas 
d'echo a I'ecran lors de I'envoi des caract&res au 
peripherique (a rimprimante), sinon I'ecran sera 
dfifigiire au fur el a inesurc de I'imprcssion. En 
principe un : 
PRINT CHRS (9} "SON" 

avant le CALL 768 regie ce petit probfeme. 

A noter enfin que le fichier hinaire s'appelle 
TXT.DMP.C, mais qu'il conviendra h. toute 
imprimante. 



Source TXT.DMP 
Assemblage par FroCODE 










A A * * m* ** * 




1 










2 




HAW 


COPIS TEXTE 


«(j *T Bcj mhumtLS ' 


J 


* 






* 


4 


JF****l^p^■**•■*lt^**^*i***i**l^*^*J^|**^*»****rf^l^*^J^*|t■I^■****■^** 


i 
f" 




ORC 


$300 




7 

e 


AOL 


£QU 




;Ailiresse de debut de llgr.e 


$ 


LICNE 


SQU 


$3 


,'Wijmero de ilg/ie 


10 


out 


ROU 


SFDED 


/Ecriture d'un earactere 


jj 


PASEIOFF 


SW 




/Selection pSQe 1 






SQU 


$C055 


/S&lBctit^n p^g^ lA 


1j 
. 1 




EQU 


iCOlF 


;Te3t 40 tiu SC colorings 


1 

16 


' Debut du prcjw.ufle 














17 










18 


* 








13 


HOT 


JJ3A 


£.0 


/DSbvt Hsrd Ccple ll^rne 


20 


HCTl 


FHA 






21 


* 








22 


















23 
S4 


* Calcul 


de 1 


'idresse de 


debut de la Hone 










2S 










2S 




PMA 






2! 










26 




AW 


£?J 




23 




asA 




/Routine VTfiB 


m 




STA 


ADLtl 




31 




PIA 






32 




Am 


£P1B 




33 




sec 


HCTl 




34 




ADC 


LS'IF 




35 


«Cf2 


STA 


ADL 




3S 




ASL 






37 




ASL 






3d 




OaA 


ASL 




33 




STA 


ADL 




4C 
41 


i 
















42 


* Ecrlttii 


e d'une liana 


4? 


















i t 










4J 




VD^ 


£0 




46 










47 


F.CT3 


LDX 


£57F 


;SsC-Ofi en aoae 


48 




CPX 


RDeOCOL 


80 ou 40 colonnes? 


4 9 




HCS 


MCT5 


jSi en 40 colonnes 


5B 


* 








51 








,-Cfi.RACTCRE EH PAGE lA 






LUA 


£0 




ss 




STA 


PAGE20N 


jActivation page 






LDA 


/ADD , Y 




SS 




STA 


PAGEZOFF 


/Retoux en pa<je 1 


se 




S«J 


licT4 




57 




AtlD 


£«F 


/Si Ic caractirc esc en 


38 




CMP 


£3^0 


/ invejrse ou en flash^nt 


59 




BCS 


HCT4 




eo 




ORA 


£S40 




€1 


* 








£2 


HCTi 


ORA 


f Sflf) 




£3 




jsn 


OUT 


fEarituTB sur I' impximsnLe 


St 










Si 








;CARACTERE EN PAGE 1 


66 


HCT5 




(ADL) , Y 
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ff7 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
7S 
90 
81 
82 
83 
84 
85 
36 
87 
88 
69 
90 
91 
92 
93 



3MI 
AND 
CMP 



HCT6 
£$3F 
f.$P.O 



BCS HCT6 
ORA £$40 



HCT6 



ORA 
JSR 



£$80 
OUT 



INZ 

CPY LI AO 

BNE HCT3 



fCaractere sulvant 
.•Test si fin de ligne 



Fin d'une ligne 



LDA L"M"-$40 
JSR OUT 



PLA 
TAY 
INY 
TYA 
CMP 
BNE 



/Envoi de 'RETURN' 
; sur 1 ' iinprim3.nt& 



Recapitulation 
TXT.DMP.C 

April avoir suiii cetie i iQapiiulation 
anua moniteur, vous la sauvegarderez 
par . BSAVETXT.DMP.CAS300,L$60 
0300 -.Ag 00 4S 48 4A 2% OT (19 
VJOe:0< 85 07 63 23 13 50 02 
D.77D.-S9 7F 85 06 OA OA 05 05 
S31S;85 06 AO Of} h2 7F EC IF 
0320 :C0 BO 19 A9 00 SC 55 CO 
0338sBl 06 8D 5i CO 30 OS 33 
0330: 3F CS 20 BO OZ CJ3 40 C3 
033S:SO 20 ED FD Bl OB 30 OS 
0340: 2S 3F CS 20 BO 02 09 40 
034/i:ni SO 20 ED FD C8 CO 23 
0350:00 CA A5 SB 20 ED FD €3 
0358 -.AS CS 98 CS 18 DO A3 60 



£!24 
HCTl 



r Passe a lig 
f suivatits 
,-rest si fin 
fde J a pacfG 



RTS 



BREJOUX AE - Applied Engineering 

29 rue Montrbtaud 69009 LYON 7^.36.52.69 

APPLE II GS, APPLE II E, APPLE II C 
R^VEILLEZVOUSI 



IIGS: GS RAIVI • G3 RAM PLUS 

Extensior mimoifa B12K ^ 8 MQ avac pjilcti 'Super AppleWorks" " 
mimaiis cache. 

RAMKEEPER 

AfimoiialOT psimanont* da 1 ou 2 cartas rn^fnoif# en slol ertflnsiori £?S. 



IIGS, HE; RAMFACTOR . RAMCHARGER 

UAmoifo ds 512K 4 5 MO partilionnabla sols dillSrents systems! 
d'asploilation. Sauuogirtto pemnarenta ivac RaraCharsar. Palefi" stir 
Apple ItE. 

DISQUE DUR 3.5" BJX 20 NiO 

Disqje Wincheslsr 3,5" ertsrne, compacl el rapine, paniilornabte sous 
diffirenls sysiSiras. Livri avec son sSlacleut de programmes ei 
ulilitaires an nombre. 



HE: TRANSWARP 

Acc4l^raiaur S.SMgi da la ruimoiie principaie. auxiliaire el das iccSs 
Rom. VitBssB rSfllable sur la carte, an clavier el ligne de proflfamrae. 



IIC: Z-RAM ULTRA 1.2.3 

Ejtejision irirroire de 256K k 1 MO auee possibilil* horloge ef/ou 
CP/AM. Paich". RamDisqus sous DOS, PraDOS, CP/AM. Compatible IIC 
12SK, 128K Rom S.B, 38tK. 

APPLE II FOR EVER 



" Patch "Super AppleWorks". Tabloau do burd de 
confisuratioa: 22.600 lignas, Z?.600 licdes, 2M2 souper-coiiar, 
buffer d'iiupfession, saiJVSQarde! par auto-segmemalion, dale et tieure i 
i'teran si en cat^goiiaa base da donn^es. 



Programme de 
demonstration 
TXT.DMP.DEMO 



(21); 



40 
50 

60 
65 



NEXT 



P O 



10 TEXT : HOME ; PRINT CHR$ 
20 D$ = CHR$ (4) ;FLAG = 
30 FOR J = 1 TO 39: A? = A$ + 
PRINT D$; "BLOADTXT. DMP . C" 
B$ = "POM'S": IF FLAG THEN BS = 
M • S " 

C-? - "HARD COPie TEXT" 
IF FLAG THEN = " H A R D C O P I 
E TEXT" 

IF FLAG THEN PRINT D$"PR£3" 
PRINT A$; : IF FLAG THEN PRINT A$,- " * " 



70 
SO 



110 
120 
130 
140 



$0 FOR I = 1 TO 21 
100 PRINT '•**••/ 
IF FLAii THEN 
HTAB 4 
NEXT I 

PRINT A$ -. 
c " * " . 

V If 

150 VTAB 4: HTAB 7 

TAB( Si,- 
160 INVERSE 
170 IF FLAG THEN 

GOTO 190 
180 HTAB 13: FLASH 
190 PRTNT C$ 
200 VTAB 18: 

EN PRINT 



HTAB 60: GOTO 130 



IF FLAG THEN PRINT A 

IF FLAG THEN PRINT 

PRINT 3$: VTAB 11 

HTAB 24: INVERSE : 



IF FLAG TH 



NORMAL ; HTAB 
TAB( 20) 

210 PRINT "Mettez votre imprimante en ma 
rche" 

220 VTAB 20: HTAB 8: IF FLAG THEN PRINT 
TAD( 20); 

230 PRINT "puis tapez sur une touche" 
240 WAIT - 16384,128: POKE - 16368,0 
250 PRINT D$"PR£1": CALL 763: PPTNT D$"P 
R£0" 

260 HOME ! IF FLAG THEN END 
270 FLAG = 1: GOTO 50 
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L'un des reproches que Ton adressc a la version Eran^aise 1.4 
d'AppleWorks csi qu'clle n'a pas (en tableur) les fonctions 
aROUND, ^AND ct aOR dc sa socur 2.0 atncricainc, pas 
plus qu'elle ne fiossede de programme de mailing. 
Qii'a cela ne tienne, Supc.rMacro Works pcrmct de 
comoumer ces lacunes avec dlfigance. Pour vous mciire en 
appdtil, Pom's vous propose, dhs ce mois-ci ei dans la 
nouvclic rubriquc consacrcc a AppleWorks et 
SuperMacroWorks, Ics tixjis macros AND, OR ci ROUND. 

Rappelons que les fichiers de macro-commandes se 
prcscnLcnt sous la forme de fichiers traiiernem de lexle 
AppleW arks. Une fois que vous avez modifi^ votre 
AppleWorks avec le logiciel SNfW, tout ce que vous avez a 
faire est de charger le fichier de macros, I'appelcr a I'ccran, 
etfaire 6= pour compiler ccHes-ci el les rendre actives. 

Les macros sont actionnees en appuyant simultanement sur 
la toucfie # et la louche d'ideniificaiion de la macro, Pour 
plus dc details sur la synuixc dcs macros, reporter vous au 
manuel fran9ais qui accompagne SMW. 

Voici Ic listing dc la macro AND.OR.ROUND. Vous 
trouverez ce fichier sur la disquette d'accompagnement de 
Pom's. Une demiere remarque : le pav6 explicatlf entre les 
deux traits d'astdrisqucs n'cst nullcmcnt n6cc3sairc pour Ic 
bon fonctionnement des macros, mais c'est une bonne 
liabitude & prendre : 11 fail exactement les tlimensions d'un 
dcran, ct rappcllc cn quclqucs ligncs les fonctions ct 
commandes qui suivent. 



*********************************************** 
At?i'lJi;wuK,KS 1.4 - JiuperMacroworKs 

AND .OR.HODND 

La ver sion fran^aise 1.4 Appleworks ne 

contient pas les tonctions aSUUtJU, aAWt) et aOK 
de la version americaine 2.0. 

Mais il est tout a fait possible de les 
introduire avec les macros •R, #A et ^0 de ce 
fichier . 

Gompilez avec 0— 

puis allez dans un tableur, et experiitifjntez . 

VOUS rests qu'^ introduire les valeurs ou 
sXpTe s si on s . 

*********************************************** 
Dlmitri Geystor - Noventore 1987 




(Dimitri Qeystor 

START 

0: <asp>iif C<insg>" 

"<m3g>'OR ! premiere expression, p 
uis RETURN '<input>:l; (aif (<msq>" "<msq>'OR : de 
uxieme expression, puis RETDBN ' <input>; 1; 0) ) ) <r 

tnXinsq>'R4sultat du OR' ! 
A:<asp>aif «msg>" 

"<m3g>'AND E premiere expression, p 
uis EETtJRN'<input>; (aif (<insq>" "<msg>"AND : deu 
xieme eiipreasion, puis RETURN ' <input>; 1; )); 0) < 
rtnX.'nsg>'Resultat da AND'! 

R:<a3p>aint ( t (<inEg>" "<niEg> ' Elxpression a arrond 
ir , puis BETDRN'<iiiput>)+,005! *100) /lOtKrtnXm 
.'ig> ' Arrondi a deux decimales ' ! 

END 



Quelqucs mots d'explication sur ces macros. Elles tirent 
parti de trois formulas classiques : 

• pour Tarrondi k 2 decimales : aINT(((Expression) + 
,005)*100)/100 

■ pour OR : aIF(Exprl;l;CaIF(Expr2;l;0))) - il suffit que 
Exprl ou Exprl soil verifi^e pour que la formule 
renvoie 1. 

- pour AND r aIF(Expl;(aTF(Exp2;l;0);0)) - il faitt que 
Exprl et Expr2 soient ve.rifiees pour que la formiile 
renvoie 1. 

L'introducUon des expressiotis se fail pai la fonction 
<inpul> ; la macro s'arrete, et attend I'entr^e de teste au 
clavier. La macro reprend aussitot aprfes un 'Return' au 
clavier (qui u'est pas ajuute k Tiiiput). Pour que la juacro 
soil comprehensible, ii faut faire pr&^der <input> de la 
fonction <msg>, qui permeL d'afficher un message au bas de 
I'ecran, en caractferes normaux (" "), inverses (' ') ou 
MouseText {* *). Dans le cas des macros ci-dessus, la s^xie 
d'espaces entre " " efface le debut de la ligne {oil va 
s'inscrire I'input), et le message proprcmcnt dit, cntrc ' ', est 
volontairement deporte vers la droite. 

Notes : 

■ attention aux apostrophes rfans les message-s en video 
inverse : remp!acez-lcs par un si vous ne voulez pas 
que la suite du message se retrouve dans les endroils les 
plus inaiteridiis... 

• <inpui> accepie non seulemcnt rcntrfe de caractferes. 
mais les deplacements par les llfeches et la souris. 

Voici, avant de vous quitter, une autre macro fort utile pour 
tous ceux qui font r6gulicremcnt dc la redaction : 
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***************** ****i;*******************Tijc-*TiTr* 

APPLEWORKS 1.4 - Sup&cKaccoWorks 
C0MPTE-K0X5 

Cette macro permet de compter rapldement le 
[luinbxtf dt2 niut.:i ddjis uii rl(;liX«££ TidlLeinenL de 
texts. Par "mot" il faut entendre tout grctpe 

Le compte fait du carseuc^ juscju'S deuK 

caracteres £ precedes d'un espace. Compiler 
3vec C5=, placer les caracteres £ et le curseur 
aux endroits vouius, taper is, Le nombre ds 
mots s'inacrira ci la fin, A la place du double 
£. 

Cotte macro utilise lea ttvfemoires ds la Macro 0, 
et les m^inoires supplement aires 1, 2, 3 4 
pous stocker les valeurs deo uiiit.6s, dxzaincs, 
centainea et tnilliera pendant le dfeconpte. 

+********************************************** 
Dintitri Geystor - Dficembre 13Q7 

START 

Les macros suivantes s'appellent en cascade: 

S:<allXinsertxD->0<saveO>l<3aveO>2<EaveO>3<3a 
-M>t On d6nii3rre 

M:<allXsa-Cx;0=>l<saveO>4<sa-CxO=">2<save(»4<s 
a-CX0=>3<saveD>4! Milliers 

C:<allXsa-DX0=>l<:saveO>3<sa-DXt)->2<saveO>3<s 
a-DXO=>3<saveO>3<sa-D> <0=>4<saveO>3<sa-DxO=> 
5<aavaO>3<sa-DXO=>6<3aveO>3<sa-DXO-'>7<saveO>3 
<sa-DXO=>e<saveO>3<sa-DxO=>9<saveO>3<sa-DxO 
=>0<saveO>3! Centaines 

D:<:allXsa -UX 0=>l<savaO>2<s a-UX 0=>2<save Ci>2 < s 
a-UX0=>3<saveO>2<sa-U> <0->4<saveU>2<sa-UX0=> 
5<savo0>2<sa-UX0->6<6ave0>a<sa-UX0=>7<save0>2 
<sa-UXO=>8<saveO>2<sa-UXO=>9<saveO>2<sa-axo 
->0<3aveO>2 ! Dizainea 

0:<Qll><3a K><0->l<3aveO>l<3a-KX 0=>2 <saveO>l<s 
a-KX0=>3<save0>l<sa-K> <0->4<sav6O>l<sa-KX0=> 
5<save0>l<5 o -KX 0->6<3aveO>l<3a KX0->7<3aveO>l 
<sa-KX0=>8<save0>l<sa-KXO=>9<saveO>l<sa-KXO 
->0<s&v^Q>X '. Unites 

K:'Call><oa-i:ighLX3a-£>! Coit^teur 

£:<allxif>£<riglitxif>£<del>(<s pc>"<spcx 1 oadO 
■>4<Ba-OXloadO>3<sa-OX 1 nadO>2<sa-OXlQadO>l<s 
a-OXspc>mots<rightxdelxspc>) <stop> ! Test et 

retovir, ou arret et rSsultat 
END 



Pniir I'expllcaiiofi du mfcanisme de ces macros (commc 
pour louies les macros en cascade), voir le manucl page 16. 
La macro appel^e renvoie au poini d'appel de la macro 
appclante : 



• quand toutes les commancies qu'elle contient ont 6t6 
esccutdcs ; 

on 

■ quand une contiiuon qu'elle contieriL n'est pas remplie (si 
la condition esi remplie, cllc se poursuit normakmcnt). 

Note : 

dans la macro "Comptcmots", certains groupes de 
caracieres se ripetent r^guli&rement, i peu de chose pres. 
C'esl roccasion ou jamais d'uliliser, pour la copie an 
clavier, unc autre particularite dc la Macro ; 6crirc le 
groupe de caractbres une seule fois, meitre le curseur sur le 
premier caractfere. ei r^peier (c'est-^i-dire <reac!>) jusqu'^ 
la fin du groupe k recopier. Mainlenanl la Macro cunlienL 
ce groupe, qu'on peut reproduire autant de fois qu'on le 
desire en faisant #0. Puis, en mode rccouvrcmcnt, on 
apportcra rapidement les quelqucs retouches 
supptementaires. 

Dans le procliain nuniero, nous vous preseiUeront une 
macro plus elaborce, avcc recours a des macros 
conditionnellcs, au chalnage et i I'incrementation de 
variables. 

EUc pcrmcttra, en une scute commande i , d'aller chcrchcr 
une adressc dans une base de donnSes d'adresses, d'ouvrir un 
flchier traiiemeni de texie tl de faire la mise en page d'une 
Icitrc-typc contcnant votrc cn-ictc, I'adrcssc du dcstinatairc 
choisi el la date ; petit raffinement : cette macro par la 
m6me occasion (et sans inicrvcntion suppltmcntaire) 
renommera ie fichier truitement de texte ouvert en lui 
donnant le nnm qui figure dans I'adre.'Ke... 
Les deux Hchiers de macros AMD.OK. ROUND et 
COMPTE.MOTS, preis h remploi, sont inclus dans la 
disquette d'accompagnement de ce numdro de Pom's. 



HGR/Minitel sur //c 



Sur les Apple //c. la configuration de 
rinterface est perdue a chaque PR£. 
Aussi, dans le programme de 
transformation d'images HGR en 
images semi-graphiques Minltel 
[Pom's 33). 11 convient de modifier 
les lignes suivantes : 

40080 PRINT CHRS (4) "PR£2" : PRINT 
CHR$ (1) "1D"CHR$ (1) '■3P"CHR$ (1 

) "SB" 

63040 PRINT CHR$ { 4) "PR£2 " : PRINT 
CHR$ (1) "1D"CHR$ (1) "3p"CHR$ (1 
) "SB" 

Sur la disquette d^accompagnement 
de la revue, ce petit probl^me avait 
6t€ r6gl6. 
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!). -L. 'Bazanegm, C. 'Siard 




EX 




bjectivement, I'importance et les 
, ressources des librairies Pom_Link ne 
les destinaient pas (3 priori a une 
publication dans les pages de Pom's 
mais plutot en logiciel edite a pan. 
Pom's se devait toutefois a la fidelite 
dc ses lectcurs ; aussi, ce serveur 
Videotex vous est propose en deux versions qui 
satisferont les besoins de chacun. 

La version 2.1 donl nous discuterons ici regroupe une 
quarantainc d'instractions nouvcilcs, oricnlces tel6mallque, 
ajoul&s ii celles de votre Basic (AppleSoft siir I'Apple //, 
Basic Microsoft 2,0 ei plus sur le Macintosh). CcUe 
version comporte le necessaire a la realisation d'un veritable 
serveur VidSofex qui n'anra ne,n h envier aux serveors du 
3615. Pon:i_Li[ik 2. 1 est publicc dans ces pages, dune aussi 
sur les disqucttes d'accompagnement Macintosh et Apple //. 
Les sources de la version Maciniosh, beancoup trop 
voluniineuA, ii'oui pas pu etre places dans ccs pages, mais 
ils sent toutefois sur la disquette Mac 34. 
La version 3.0, disponible en produit a pan, ouvre la porte 
au mode teldinformaiique (style CalvaConi, mode ASCII 
80 colonnes) mais va cgalcmcnt plus loin dans 
I'exploltation dti mode. Videotex. FJle donne egalement a 
I'ccran de Tordlnateur serveur un 6clio des entrees/sorties 
{utiles pour rcchcrchcr tcs bugs). 

Poiirquoi des librairies ? 

Ceries, Pom's pouvaii publier comme produii unique ei 
final le r6pondcur tcldmatique donne en exempte mais le 
r^sultat aurait etc fige. De nouvelles instructions ajout6es 
au Basic pcrmcucnl a chacun ; 

■ de modifier siinplenienl ce repondeur et de I'adapter h ses 

besoins ; 

• de crdcr son propre serveur specialise. 

Les librairies permeitront de meltre en ceuvre votre 

imagination. De plus, nc doutons pas qu'cUcs scrviront de 

base a bien d'aulres programmes dans les prochains 

num6ros. 



Que font-elles ? 




Chaque routine PoHi_Link a une fonction d'envoi ct/ou dc 
reception de caracicres vers on depuis Ic Minitel 'servi'. 
Ainsi. il est plus agrdable d'6crire dans son programme 
Basic : 

DEPLACE 1, 16 

pour positionner le curseur en iigne 1, colonne 16 plutot 

que la suite d'instructions ; 

ouvrir port B*rie sn Bortia 

PR.IlI!r CHR${31) CARS {64+1) CHR$ {64 + 16) 
fermer port s^rla 

Realiser uu 'INPUT' sur le Minitcl scrvi en Basic est quasi 
irr^alisable alors que celui propose ici est deja bcaucoup 
plus puissant que ceM de I'AppleSofl. Chaque nouvelle 
function offre a chacun la possibilite dc piloter un serveur 
sans pour autant maitriser les ^garements de la norme (?) 
Videotex ; il fauL toutefois en dire un mot. 

Le Videotex 

Dans le descriptif de chaque. instruction fignreni .souvenl des 
remarques du fait de conirainies Videotex, el il laudra 
pardonncr aux librairies de n'avoir pas totalement supprim^ 
la lourdeur du systeme.. T.a conleur du fond qui repasse au 
noir lors d'un dSplacement, le souUgnemcm qui n'est valids 
qu'aprfcs affichage d'un espace par exemple sont h prendre en 
consideradon lors de la programmatinn. Consequence de ces 
petites contrainies, cenaines instnictiuui ne fyuctionnc pas 
- ou au moins pas nomialement pour certaines - en local, 
c'esi-a-dire Minitel serveur non connect^ : cela compliqueta 
ISgfcremeni la mise au poiiil. 

Mise en ceuvre... 

Une syniaxe commune h I'Apple // ct au Macintosh h 6i6 
reienue et, pour ne pa.<; dupliquer les exemples, voici le 
mode d'uLilisauon sur chaque apparcil : 

...sur TApple // 

La premiere instruction du programme Basic serveur doit 
eu-e la suivanie : 

IF PEEK (104) * 256 + PEEK (103) < > 
7601 THEN POKE 103,1: POKE 104,30: 
POKE 7 6BOrO: PRINT CHR$(4) "-nom" 
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ou nom est Ic nom de votre programme Basic. 

La ligne suivante sera : 

PRINT CHR$ (4) "-POM.T.THK.? .1 " 

Les nouvelles instmctions sont alors disponibks avec [a 
syniaxe suiviuiLe : 

Iibslruction dans Ic mode d'emploi de Pom_Link : 

ALERTE "interdit",! 
Sur r Apple // : 

& ALERTE, "interdit",! 
Autrement dil, les mots-cle des nouvelles instniclions sont 
pr6c6d6s de et suivis de 

...sur le Macintosh 

L'instnicilon suivante dcvra ctre placee avant I'occurrence de 
la premiere instruction dp, Pnm^Ltnk utilisce : 
T.TRRARY "Pom_Link 2.1" 

Des lors. les nouvelles instructions sont disponibles telles 
qii'cUcs sonl detrites dajis lem mode d'emploi : 
ALERTE "Interdit",! 

h. condition toutefois d'avoir place au ddbut dc voire 
programme I'instmction dii Basic Microsoft : 
DEFSNG A-Z 
OU 

DEFDBL A-Z 

Si vos hafeitudes vous conduisent k uiiliser defint (ce 
qui est, a notre humble avis, la mcillcurc solution) ou 
DEPSTR, il vous faadra placer un point exclamation '!' 
OU - mais molns efficace - un di&se jusie aprfes le nom 
dc I'instruction. Vous obticndrcz alors : 
ALERTE! "Interdit",! 
ALERTE# "Interdit",! 

Notons enfin que le nom des instructions pent etre saisi 
indtff6remmeni en majuscules ou minuscules ; ainsi : 
AffiCheRl "Bon jour clies vous..." 
csl ilussi va]idc que 

AFFICHER! "Bonjour chez voxia . . . " 



Optimiser HGR/Minitel 

En ^ioutant la Hgue suivante au 
pi-ogi-amme de conversion 
HGR/Minitel du numero 33 de Pom's, 
on gagne un temps precleux : 

50135 IF MN% THEN 50160 

Pour convertir Lady, il faut avee rette 
ligne 2M.'i, et 4'45 sans,.. 

G. Lauvergoier, Rennes 




ACCEPT (ne fonctionne pas en local) 

Syntaxe dc I'instruction 

ACCEPT coloime, ligne ^de^soUiciiaiionJongueiir, 
retourjtat 

But 

Gere unc zone dc saisie controlee. 
b^xplications 

colonne et iigne sont des variables ou expressions eniicrcs 
indiquant la position de la zone de saisie sur I'ecran du 
Minitel. cnlonne doit £tre compris entre 1 ci 39 inclus. 
Ugne doit 6tre tonipris eiiLre I ct 24 inclus. 
mode est uiie variable ou expression cntibre dcsignant la 
taille des caiactercs utilises : 
• mode = : taille normale ; 
■ niode= 1 : double hauteur. 

sollkiiaUon est unc variable ou expression chainc qui sera 
affichee avant la zone de saisie pnoprementdite. Le nombre 
de caracteres de soUicitation doit compris entre et 39 
indus. 



Pom's sur Minitel : 
(1) 39 53 04 40 

Des aujourd'iiui, nous reservons ce nouveau 

NUMERO DE TELEPHONE A VOS MiNITELS. VouS Y 
TROUVEREZ A TITRE DE DEMONSTRATION LE 
REFONDEVR TELEMATIQVE DE CE NUMERO. 

nous y avons adjoint un module susceptible 
d'enregistrer des commandes. 
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longueur indiquc Ic nombrc maximum dc caract6rcs qu'il 
sera possible, d'entrer dans la tohc de saiste, Afin de 
matfirialiser la zone, ACCEPT affichc autant dc points que 
n6cessaire. longueur doit Stre compris entre 1 et 39 inclus. 
retour est une variable chalne dans laquelle sera retoumee la 
chalne de caracferes entree. Si la variable chalne rewur n'est 
pas vide, son contenu sera utilise comme teste 'par defaui' 
et affich6 en debut de zone de saisie. La longueur de la 
chaine de caracteres representee par retour ne pent pas etre 
supcrieure a la longueur de la zone de saisie. 
e(at est une variable eniiere indiquant les conditions de 
sortie de 1 'instruction : 





6tai = 


0: 


pas de caracifcre saisi depuis plus de 2 minutes 








(voir le paragraphe "Cote utilisateur") ; 


* 


6tat = 


I ; 


sortie par ENVOI ou 'retour-charioi' ; 




eta[ = 


2 ; 


sortie par RETOUR ; 


u 


^tat = 


3: 


sortie par REPETITION ; 


« 


etat = 


4 : 


sortie par GUIDE: 




6tat = 


5: 


sortie par ANNUL ATION (voir le paragraphs 








"Cole utilisateur") ; 


* 


6tai = 


6: 


sortie par SOMMAIRE \ 




etat = 


7 : 


sortie par SUITE ; 


• 


^tai = 


8: 


sortie par CONNEXION. 



Semarques 

• la sommc do colonne + longueur de sollicitaiion + 
longueur ne doit pas ^tne supcrieure. a 40 ; 

• ACCEPT provoque le passage en mod'e lexce ; 

• !e curscur est invisible lors du retour au programme 
Basic. 

Cdt^ utilisateui' 

' ACCEPT place le curseur sur ta premifere position de la 
zone de saisie ou, si une chaine par detaut est utilisec. 
sui la position suivaiit cette chalne ; 

• si Ton tente d'entrer plus de caractere que n'en prevoie la 
zone de saisie, ACCHFl' 6met un 'bip' et afflche le 
message "Fin de zone" dans la lignc ; 

■ la touche CORRECTION d6place le curseur d'une 
position vers la gauche en effa^ant un caiact&ie. Si le 
cuiseui se trouve sur la piemiere position de la zone de 
saisie, une action sur !a touche CORRECTION 
provoque rafflchage du message "Rien a effacer" dans la 
Jigne ; 

■ si le curseur ne se trouve pas sur la premiere position de 
la zone de saisie, une action sur la touche 
ANNULATION vide la zone dc saisie et place le curscur 
sur la premiere position. Si le curseur se trouve sur la 
premi&re position de !a zone de saisie, ANJVULATION 
provoque un retour au programme Basic avec etat - 5 ; 

■ toutes les touches de fonciion provoqucni un retour au 
programme Basic sauf CORRECTION, et 
ANNULATION dans Ic cas cit6 pr6c6dcmmcnt ; 

• si le clavier du Minitel n'est pas soUicite pendant une 
minute, ACCEPT tmti un 'bip' ei affiche le message 
"D&;onnexion imminente" dans la lignc 0. Si rien nc se 
passe pendant la minute sviivante, it y a retOur an 
programme Basic avec iiai - ; 

- avant retour au programme Basic, les points de la zone 



dc saisie situ^s sur des positions inutilis^s sont 
effac^-s ; 

• lorsqu'un message est affiche dans la ligne 0, une action 
sur le clavier du Minitel provoque I'effacement de ladite 
ligne : 

• les caractferes et sont remplac6s par un point {'.') 
(uniquement avec I'AppIe// comme serveur), 

Exemples 

10 REM ExeiAplos d ' u-tllieat ion d'ACCEPT 
20 ACCEPT 5,8,l,"Noni : " , 12 , CHS , ET% 
30 ACCEPT C0%, LI%+1, 1, A$+" : ",10,CS,ET% 
40 ON ET% + X GOSOB 10 0, 200,300, 400,500,... 

Voir aussi ACCEPTF, SAISIE et SECRET. 




ACCEPTF (ne fonctionne pas en local) 



Syntaxe de I'instruction 
ACCEPTF itat 

But 

Attend pendant 2 minutes maximum unc action sur une 
touche de fonction. 

Explications 

etat est une variable entifere contenant, au retour, !e code de 
la touche de fonction ; 





etat = : 


pas dc caractcrc saisi depuis plus de 2 minutes 






(voir Ic paragraphe "C6t6 utilisatenr") ; 


• 


etat = 1 : 


ENVOI OU 'retour-charlot' ; 




etat - 2 : 


RETOUR ; 


• 


etat = 3 ! 


REPETITION ; 




eiai = 4 : 


GUIDE; 




etat = 5 : 


ANNULATION ; 


■- 


€m. = 6: 


SOMMAIRE : 


» 


etat = 7 ; 


SUITE; 




6tat - 8 : 


CONNEXION; 




6tat = y : 


CORREC'llON. 



Cote utilisateur 

Si le clavier du Minitel n'est pas sollicit^ pendant une 
minute, ACCEPT 6met un "bip' et affiche le message 
"D6conncxion imminente" dans la ligne 0. Si rien ne se 
passe pendant la minute suivante, il y a retour au 
programme Basic avec 4im = 0. 

Exemple 

10 REM Example d' utilisation d'ACCEPT? 
20 ACCEPTF ET% 

Voir aussi ACCEPT. SAISIE et SECRET. 
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AFFICHE 

Syntaxe de 1 'instruction 
AFFICHE chatne [;] (sur 1' Apple //) 
AJFFICHE chatne (sur le Macintosh) 

But 

Afflche une diaine de caracteres sur I'ecran du Minitel 
utilisateur, h partir de la position courante du curscur. 

Explications 

chaine est une variable ou une expression chaine. Les 
caractircs ponant des codes differents sur 
rordinateur-servMir et le Minitel sont recodSs. Sur 
I'Apple //, AFFICHE fonctionne tomine un PRINT : un 
rctour chariot est g^n^r^ s'il n'y a pas de point- virgule k la 
fin de I'instniction ; seiile la chaine est allchee dans le cas 
concraire. Sur le Macintosh, seule la diaiiie est afficli^, 

Remar^De 

Aux dventuels 'retour-chariot' (ASCII 13) contcnus par ia 
chaine de caracteres sontajout^s des 'line-feed' (ASCII 10). 
Ceci autorise renvoi direct d'un fichlcr. Par exemple, sur le 
Macintosh : 

AFFICEE IHPnT? (LOF tl> , 1) 

envoi la totality du contenu du fichier #1 sur I'ccran du 
Minitel. 

Exempies 

10 REM Exemploft d ' utilisation d'AmCHE 
20 irFICHE "D6but"; (uniquemenl Apple //) 

30 AFTICaE "EagB ■■ + 3TR5(NP%) 
40 AFFICHE CS 

Voir aussi AFHCHER, ALERTE, CHARIOT, MTH. 




Afficirc un message d'alcrtc dans la Hgne 0. 

Explications 

message est une variable ou unc exptession chaine. la 

longueur de la chaine de caracteres doit etre comprise entre 

et ^6 inclus. Les caractaes portant des codes differents 

sur I'ordinateur-serveur et le Minitel sontrecodcs. 

bip est une variable ou expression eniifere qai indiqne si le 

message doit etre accompanies d'un 'bip' sonore : 

bip = ; pas de 'bip' ; 

bip o : Emission d'un 'bip'. 

Remarques 

. la Ugne est effaces avant affichage du message d'alerte. : 
■ il &si possible d'utiliser ALtRTE pour effacer la ligne 

en passant une chaliie de longueur commc message ; 
• la position courante du curseur est retablie apres 

execution de rinsiructton ALERTE. De mSme, 

I'ensenible des aluibuts Videotex sont prdscrves et 

restituds. 

Exemples 

10 REM Examplao d ' ut 11 1 a at ion d'ALERTE 
20 ALERTE " Tou cli© " +A$ ( T % J + " Invalido ■■ , B% 
30 ALERTE CH$ , 

40 ALERTE "Comimiiiication interrompua " , 1 
Voir aussi AFFICHE. AFHCHF.R, MTH. 



APPEL 

Sjntaxe de I'instructioii 
APPEL etat 



AFFICHER (imiquement Macintosh) 

Syntaxe de I'lnstruetion 
AFFICHER chatne 

But 

Identique ^ AFFICHE mais ajoute un 'retour-chariot' h la 
fin de la chaine de caraclSre.*!. 

Voir aussi AFFICHE, ALERTE, CHARIOT. 



But 

D^tecte la presence 
lelephunique. 



ou i'absence - d'un appel 



E;xpIications 

etat est une variable entifere conusnani, au retour : 

' si aucun appcl est ddtcctd ; 

• 1 si un appel est d^tect^ (-1 sur le Macintosh). 

Kemarque 

Si APPEL ddtcctc quclquc chose, Tinstruciion s'assurc dc la 
validite de I'appel en eliminant Ics impulsions infericures a 
25 centimes de seconde. 



ALERTE 

Syntaxe de I'instruction 
ALERTE messageMp 



Exemples 

10 REM Examples 

20 APPEL ET% 

30 IF HOT ET% TSEM 20 

40 REM APPEL 



d ' utilisation diAP^ZL 



But 



14 



Pom's n° 34 



BAS (ne fonctionne pas en local) 

Syntaxe de I'instruction 

BAS nombre. 

But 

Decale I'ecran Videotex vers le bas. 
Explication 

nombre est ime variable ou expression enti&re qui indique 
I'amplitudc du dfcalago cn lignes. nombre doit eire compris 
entre el 24 incliis. 

Remarque 

BAS vide le tampon d'entree des caracteres (voir PURGE 
j»ur le Macintosh). 

Exetnples 

10 REH £:xeinpl«0 <i ' ut i 1 i B at i o Ji de BJ.S 

20 BAS 10 

30 BAS H%410 

40 BAS K$ 

Voir aussi HAUT. 



BIP 

SyntRxe de rinstruction 
RIP 

But 

Provoque remission d'un 'bip* sonqre. 
Exempli 

10 REM Example d ' utilisation ds BIP 
20 BIP 

Voir aussi ALERTE. 



type est une variable ou expression entifere qui indique le 
type de cadre a altictier ; 



CADRE 

Syntaxe de I'instruction 

CADRE xl .yl jc2,y2,typeJignagexotileur Ccouleur F 
But 

Trace iin cadre r6;ran du Minitel ntilisateur. 



Typa=0 



Type=1 



Type=2 




lignuge est une variable ou expression cniierc qui indique si 
le cadre doit etre trac^ avec des caracteres semi-graphiques 
joints ou disjoints : 

• lignage = : caracteres joints ; 

• lignage o : caracteres disjoints. 
Si Type = 2, lignage est ignore. 

couleur C est une variable ou expression eniifere 
rcprcsentant la couleur des caractiircs ; 
couleur F est une variable ou expression entifere 
Tcpr&entant la couleur de fond : 



• 


: noir 


0% de gris 


■ 1 


; rouge 


50% de gris 


. 2 


: vert 


70% de gris 


• 3 


; jaune 


90% de gris 


- 4 


: bleu 


40% de gris 


■ 5 


: magenta 


60% de gris 


• 6 


; cyan 


80% dc gris 


• 7 


: blanc 


100% de gris 


Reinarqu«s 






• le rectangle minimum est de 3 caracteres par 3 ; 

• aprSs affichage du cadre, le curseur est plac^ dans Tangle 
supdrieur gauche du csrire ; 

• lurs du relouf au programme Basic, le Minitcl utilisateur 
est en mode texte, curseur invisible. 

Exeuiples 

10 REM ExemploB d ' utiliaation de CADEE 
20 CADRE Xl% , Xl%, X2% , Y2%, T%, L%, C% , F% 
30 CADRE 10, A%+9,D%, 24, 1, l,C*+2, F% (A%) 

Voir aussi VIDRECT, 



CHARIOT 

Syntaxe dct rinKfructinn 
CHARIOT [nombre] 



Explication 

xl,yl,x2 etyZ : coordonndes du rectangle dans lequci doit 
ii'iijscrire le cadre, xl et x2 doivent etre compris cntrc 1 ct 
40 inclus, yl y2 doivent etre compris entre 1 el 7A 
inclus. 



But 

Provoque nombre 'retour-chariot'. 
Explications 

nombre est une variable ou expression enti&re facultative 
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qui indique le nombre de retours la ligne a effectuer. Si 
nombre est omis, CHARIOT provoque un seul retour h la 
ligne. nottibre doit 6tre compris cntrc ct 24 inclus, 

Exemples 

10 REM Examples d < uti li s at ion 

20 REM de CRJiRTOT 

30 CHARIOT 

40 CHARIOT 3 

30 CRARIOT M% 

60 CHARIOT M%+2 

Voir aussi AFHCHE, AFFICHER. 




10 REM Example d ' utilis at ion de CNXR 
20 CHXR ET% 

Voir aussi APPEL, CNXN, DECNX. 

CURINVIS 

Syntaxe de ['instruction 
CUKINVIS 



CNXN 

Syntaxe de I'mstruction 
CNXN 

But 

Connexion du Minitel serveur. 

10 REM Exsjnplo d ' utllisaticn d.& CMXH 
Id CNXN 

Voir aussi CNXR, DECNX. 



CNXR (ne fonctionne pas en local) 

Syntaxe de Finstruction 
CNXR etat 

But 

Retoiimemeni et connexion Uu Minitel serveur. 
Explication 

Cette instruction est normalement utilis^e lorsqu'on a 
detects un appel telfiplionique I'aide de rinsuuciion 
APPEL). 

efaf est une variable cntifcrc dans laquellc on pourra trouver 
au retour dans le programme Basic : 

• 6 tat = si !e Minitel de I'utilisatetir n'a pas tx& connects 
au bout d'une n^inute (dans ce cas, le Minitel serveur est 
ddconnectc) ; 

• dtat = 1 (-1 sur le Macintosh) si le Minitel de 
Tuiilisateur a etc tiuunecl^ (dans ce cas, un message dc 
'copyright' est afficM ptindant4 secondes sur Tdcran du 
Minitel utilisateur). 

Remarque 

CNXR vide le tampon d'entree des caiactferes (voir PURGE 
pour le Macintosh), 



But 

Rend le curseur invisible. 
Exemple 

10 REM Example d ' ut. i 1 i s at i o n 
20 REM de CORXNVIS 
30 CDRINVIS 

Voir aussi CURVIS. 



CUR VIS 

Syntaxe de rinstruction 
CURVIS 

But 

Rend le curseur visible. 
Exemple 

10 B¥.M Example d ' ut ill s ati on d« CORVIS 
20 CURVIS 

Voir aussi CURINVIS. 



DECNX 

Syntaxe de l^instruction 
DECNX 

But 

Deconnejdon du Minitel serveur et du Minitsl utilisateur. 
Exemple 

10 REM Example d ' u t ±1 i s at ion de DECNX 
20 DECHX 

Voir aussi CNXN, CNXR. 
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DEPLACE 

Sj'Ulaxe de rinstruction 
DEPLACE colonHe,ligne 

But 

Posilionnement du curseiir. 
Explications 

coionne et iigne sont des variables ou expressions entieres 
indiqiiani la pasition du curseur. coionne doitetre compris 
entre 1 et 40 iiiclus. Ugrx doit 6trc compris ttiMt 1 ct 24 
inclus, 

Exemples 

10 REM Examples d > u t i 1 i e at i on 
20 REM de DEPLACE 
30 DEPLACE 2,10 
dO DEPLACE 2,LI% 
50 DEPLACE C0%+2, L% 

Voir aussi LOCALISE, 



Exemple 

10 REM Exsinple d ' utllieation de FIXE 
20 FIXE 



Voir aussi FLASH, PARAMG, PARAMT 




FLASH 

Sytitxixe de I'lnstruction 
FLASH 

But 

Passe en affichage clignotant. 
Exemple 

10 HEM Example d ' ut 1 1 i fi at i on de FLASH 
20 FLASH 

Voir aossi FIXF., PARAMG, PARAMT. 



ENT JGNE (ne fonctionne pas en local) 

Syntaxe de rinstruction 
ENLIGNE Stat 

But 

PenneL de s'assurer dc la presence du Minttcl utilisateur. 
Explication 

etat est une vaHahle enfifere dans laquelle on pouira trouver 
au retour dans le piogrdiniutj Basic : 
- £tat = si le Miniiel utilisateur ne repond pas ; 
• ^tat = 1 (-1 sur le Macintosh) si le Minitel utilisateur 
rfipond nonnalemenu 

Remarque 

ENLIGNE vide le tampon d'eniree des caractferes (voir 
PURGE pour le Macintosh). 

Exemple 

10 REM Example d ' utilisation de EHLIGHE 
20 EMLIGNE ET% 

FIXE 

Syittaxe de rinstruction 
FIXE 

Bnt 

Passe en affichage non clignotant. 



GR 

Syntaxe de I'lnstmction 
GR 

But 

Passe en mode semi-grapliique. 
Exemple 

10 REM Exeiopla d' utilisation da gr 
20 CR 

Vuir aussi PARAMG, PARAMT, TXT, 



HAUT (ne fonctionne pas en local) 

Syntaxe de I'instruction 
HAUT nombre 

But 

Dfeale i'ecran Videotex vers le haut 
Explication 

nombre est une variable ou expression enii&re qui indique 
I'amplitude du d6calage en lignes. nombre doit etre compris 
entre et 24 inclus, 

Remarque 

HAUT vide le tampon d'entrde des caract&rcs (voir PURGE 
pour le Macintosh). 



Pom's n° 34 



17 



Exemples 

10 REM Exemples d ' ut i li e at i on d« BAOT 

20 ShUT 10 

30 BAOT N%+10 

40 &AUT Nt (A%J 

Voiraussi BAS. 



IDENT (ne fonctionne pas en local) 

Sytitaxe de I'lastrucfion 
IDENT valeur ] ,valeur 2,valeur 3,etat 

But 

Retoornc Ics trois octets d'idcntification du Minitcl 
utilisateur. 

Explication 

valeur 1 est une variable entiere dans laquelle IDENT 
rctoume le code constmctear du Minitel utilisateur ; 
valeur 2 est une variable entiere dans latjuelJe IDENT 
TCtournc Ic type du Minitel utiiisateiir ; 
valeur 3 est unc variable entiere dans laquclic IDENT 
retoume le num^ro de version du Minitel utilisateur ; 
itat est une variable entiere dans laquelle on poiirra troiiver 
au retour dans \t programme Basic : 

• 6tat = si le Minitel utilisateur n'a pas r^pondu ; 

■ fetat = 1 (-1 sur le Macintosh) si Ic Minitel utilisateur a 
r^pondu normalemcnL 

Remarques 

• si eiat = 0, le contenu de valeur I, valeur 2 et valeur 3 
est n]d6riai. 

- sur le Macintosh, IDENT vide Ic tampon d'entree des 
caractferes (voir PURGE). 

• certains Minitel sont munis d'un logiciel qui 
DC permel pas remission des identiticateurs ; 
dans ce cas ^tat sera iga) k 0. 

Example 

10 R£M Exemple d ' ut 1 11 s a t ion de IDEHT 
20 InKST Vl%, V2%, V3!r,ET% 



INIT (uniquement sur I'Apple //) 

Sytitaxe de FinstructioQ 
INlT slot 

But 

Initialise les routines sur le slot indique et v^rifie 
I'existence du port s^rie. 

Explication 




slot est une variable ou expression entitre qui indique quel 
port scrie devra etre utilise pour les cntrces/sonies. 

Exemples 

10 REM Exemples d ' ut Ills a.t Ion de INIT 
20 INIT 2 
30 INIT S% 

Voir aussi SERVOFF. 



INVERSE 

Syntaxe de 1' instruction 
INVERSE 

But 

Pdsse en iifCi;iiage iiiveri;^. 
Exeraple 

ID REH Example d ' utilisation de inverse 
20 INVERSE 

Voir aussi NORMAL, PARAMG, PARAMT. 



LIGNE 

Sjntaxe de I'instructlon 
LIGNE 

But 

Initialise, le mode lignage oo soulign^. 
Explications 

■ si le Minitel utilisateur est en mode semi graphique, 
LIGNE passe Taffichage en mode ligne (caiacteres 
semi-graphiques disjoints) ; 

• si le Minitel utilisateur est en mode texte, 
LIGNE passe I'affichage en mode soulign^ ; 

Remarque 

Dans le cas du mode tcxte, LIGNE envoie un attribut latent 
qui ne sera valide par le Miniiel utilisateur qu'a la recepdon 
d'un espace (ASCII 32). 

Exemple 

10 REM Exampla d ' ut 111 sa.t ion de LIGNE 
20 LIGHE 

Voir aussi FARAMG, FAKAMT, SANSLIGNE. 



18 



Pom's ii'^ 34 



T.OCALISE (ne fonctionne pas en local) 

Syntaxe de i'instruction 
LOCALISE colonne,ligne,etat 

But 

Relounie la posilioii comajiLe du curseur. 
Explicatioa 

colonne et Ugne sont des variables eniieres dans lesquelles 
LOCALISE retoume la position couranle du curscur. 
etat csl une variable enliere dans laquelle on pourra irouver 
ail relonr dans le pmgramme Ba«!ic : 

• twi = si le Minitel uiilisatcur ne repontl pas ; 

■ 6tat = 1 ( 1 sur le Macintosh) si le Minitel utilisateur 
rSpond normalenicni. 

Remarques 

■ si etat - 0, le contenu de colonne et Ugne est ind£&ni. 

• LOCALISE vide le tampon d'entrde des caracicres (voir 
PURGE pour le Macintosh). 

Kxemple 

10 REM Exeini>le d ' utilisation 

20 SEM de LOCALISE 

30 LOCALISE C0%,LI%,EI% 

Voir aussi DEPLACE. 



MTH (uniquemenl sur 1' Apple If) 




Syntax* de I'instruction 
MTH mode 

But 

Modific ic rccodagc des caracicres issus de rinstruction 
Expliciition 

nwdc est une variable ou expression entiferc qui indique le 
type de recodage de certains caractferes : 
• mode = ; mode litieraire (par d^faui) ; 
- mode <> : mode mathematique. 

Apple // Mlnltel 

litt^ioire mathematique 



c 

e 


e 


1 


fe 


6 


1 


5 


S 


\ 




h. 


@ 


§ 




] 


<> 


« 


[ 


ii 


ft 


1 


£ 


£ 


# 




£ 


ta 






a 




t 


tt 



autres voyelles accentu^s ; idem 



MODE 

Syntaxe de rinstrucliou 
MODE mude 

But 

Chaiige le mode d'affichage. 
Explications 

mode est une variable- ou expression entiere indiquant le 
mode d'affichage i utiliser ; 

• mode = : caractcrcs normaux ; 

• mode = 1 : double hauteur ; 

• mode = 2: double largcur ; 

• mode - 3 : double taillc. 

Remarque 

MODE provoque le passage en mode texte. 
Exemples 

10 E.EM Examples d ' ut il i s at i on de MODE 

20 MOU£ M% 

SO MODE M%+A%(B%} 

40 MODE 2 

Voir aussi PARAMT. 



Remarque 

Tous les Minlteb n'ayiiiil. pas les iuemes ROM d'affichage, 
les r6soltats peuvent varler Idgferemenl d'un modele ^ 
I'auhe. 

Exemples 

10 HEK Exemples d ' u til i fi a t ion ds MTB 
20 MTH 1 

30 MTH M% 



NORMAL 

SyBtaxe de I'instruction 
NORMAL 

But 

Passe en affichage non inverse. 
Excmple 

10 REM Example d ' 11 1 J, 1 i a at i o n da NORMAL 
20 HORKAL 

Voir aussi INVERSE, PARAMU. PARAMT. 



Pom's n° 34 



19 



PARAMG 

Synfaxe de I'insfruction 

PARAMG coulcur C,couleur FJignagc, flash 

But 

Passe en mode semi-graphique et 6tablit les paramctres 
d'aflichage. 



Explications 

couleur C est une variable ou expression cnUfcrc 
representant la couleur des caractere-s ; 
cnuleur F est line variable ou expression entifere 
rcpreseuLaiiL la couleur de fond ; 

: noir 0% de gris 

1 \ rouge 50% de gris 

2 : vert 70% dc gris 

3 : jaune 90% dc gris 

4 : bleu 40% de gris 

5 : mageiiUi 60% de gris 

6 : cyan 80% de gris 

7 : blanc 100% de gris 

Ugnage est une variable ou expression enti&re qui indique si 
les caracteres doivent ctrc affichds avcc dcs caracieres 
semi-graphiques joints ou disjoints : 

• lignagc = : caractferes joints ; 

* lignagc o : caractferes disjoints. 

flash est unc variable ou expression entifere determinant la 

fixit6 ou le clignotement (inversion des points du caract&re 

une fois par seconde) : 

- flash • : caracieres fixes ; 

■ flash o : caracteres clignotants. 

Exemples 

10 REM Examples d'utiliaation de PARAKC 
20 PARAMG CC%, CF% , LI%, FL% 
3 PARAMG 7,0,1,1 

40 PARAMG CC%+1 , A% (CF% ) , INT (L%/2 ) , 

Voiraussi FIXE, FLASH, GR, LIGNE, PARAMT. 
SANSLIGNE. TXT. 




• mode = D: caracteres normaux ; 

• mode J= 1 : double hauteur ; 

■ mode = 2 : double largeur ; 
' mode = 3 : double taiJle. 
couleur C est une variable ou expression entiere 
representant la couleur dcs caracteres ; 

couleur F est une variable ou expression entiere 
representant la couleur de fond : 

: noir 0% de gris 

1 : rouge 50% de gris 
2 : vert 7U% de gris 

3 : jaunc 90% de gris 

4 : bleu 40% de gris 

5 : magenta 60% de gris 

6 : cyan 80% dc gris 

7 : blanc 100% dc gris 

flash est une variable on expression entiere determinant la 
flxite ou le clignotemcnt (inversion des points du caractere 
une fois par soconde) : 

• flash = : caracteres fixe; ; 

• flash <> : caracttres clignotants. 

inversi est une variable ou expression entifere indiquant si 
les couleurs de caracicre etde fond doivent etre inverses ou 
non : 

• inverse = : couleurs normalcs ; 

■ inverse <> : couleurs inversdes. 

souligni est une variable ou expression entiere qui indique 
St les caracteres doivent Stre soulign^s : 

• souligne = : caracttrcs non soulignes ; 

■ soulignd <> : caracteres sonlign6s. 

Remarque 

Les paramfetres couleur F et souligne constituent des 
attributs latents qui ne seront valides par le Minitel 
uiilisaieur qu'a la reception d'un espacc (ASCII 32), 

Exemples 

10 REM Exomplfifi d ' ut i lis at i on de PARAMX 

20 fARAMT M%,CC%,Cr%,FL%, TK% , 30% 
30 PARAMT 2,0,7,1,1,1 

40 PARAHI H%+ (V%<3) , 0, 7, 1, 1, SO%<>10 

Voiraussi FIXE, FLASH, INVERSE. LIGNE, GR, 
NORMAL, PARAMG, SANSLIGNE, TXT. 



PARAMT 

Syntaxe de I'instrnction 

PARAMT mode,coulew C, couleur F, flash 
inverse. souligne 

But 

Passe en mode texte et 6tablit les paramfetres d'affichage. 
Explications 

mode est une variable ou expression entiere designant la 
taille des C4tract&re.s : 



PURGE (uniquemeiit sur le Macintosh) 

Syntaxe de I'instruction 
PURGE 

But 

Vide Ic tampon d'entrcc dcs caracteres. 
Explications 

Les instructions dc cettc librairie qui re^oivcnt des 
caracteres utilisent un tampon d'entree capable de stocker 
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1024 caractferes. Celui-ci pemiet h I'uulisateur d'anticiper 
Ics commandcs ou Ic remplissage des zones de saisie. 
Cependant, suivant le type de traitement effectu6 par le 
servear, il peut Ctre utile de vider le laiiipuii il'eiiir6e poui' 
Stre sur de n'exploiter que des caracleres 'frais' (par exemple 
av&c SAISIE). 

Remarque 

Les instructions suivantes vident le tampon d'entree : 

• CNXR 

■ BAS 

■ ENLIGNE 

■ HAUT 

■ IDENT 

• LOCALISE 

• ROULEAU 

Exemple 

10 REM Exemple d ' ut ill o at Ion do PDRGE 
20 SURGE 



But 

Passage en mode page ou en mode rouleau. 




Explication 

condiiion est une variable ou expression entiere qui indique 
le tfpc d'affithage a utilizer : 

• condition = : mode page ; 

• condiiion <> : mode roQieau. 

Remarque 

ROULEAU vide le tampon d'entree des caract&res (voir 
PURGE pour le Macintosh). 

Exemple^ 

10 REH ExQRkpleB d ^ u-t Hi. e Ion 
20 REM de ROOLEAU 
30 RODLEAD 1 
10 ROULEAU R% 
50 RODLEAO R%=0 

SAISIE 



REINIT 

Syntaxe de i'instruction 
REINIT 

But 

Reinitialisation du Minitel utilisateur. 
Explications 

Le Minitel utilisateur passe en ; 

• mode Videotex 

• caratleres blant 

- fond noir 

• taille normale 
■ uou soulign6 

- non inverse 

• non Hash 

Remarque 

REINIT iSmet im espace (ASCII 32) afin de. valider le mode 
non soulign^ et la couleur de fond. 

Exemple 

10 REM Example d ' ut il i c at ion de RETHIT 
20 REIHIT 

Vniraussi FIXE, FLASH. EIGNE, PARAMT, 
SANSLIGNE, TXT. 



ROULEAU (ne fonctionne pas en local) 

Syntaxe de I'instruction 
ROULEAU condition 



Syntaxe de rinstruction 
SAISIE caraaire 

But 

Retoume une chaine contenant le caractfere frapp6 sut le 
clavier du Minitel utilisateur, ou une chaine vide si aucun 
caratifere n'a etc soUicite. 

Explications 

caraaire est une variable chaano qui re^oit Ic caractere 
eventuel. 

Si le code ASCII du caractfcre relottmc est inferieur a 32 
(espace), I'atilisateur a soliicit^ une louche de fonction : 



ASC(caract&re) = 


1 


ENVOI; 


ASC(caiact6re) = 


2 


RETOUR; 


ASC(caractferc) = 


3 


REPETITION ; 


ASC(caractere) = 


4 


GUIDE; 


ASCCcaract&re) = 


5 


ANNULATION 


ASC(caract6rc) = 


6 


SOMMAIRE ; 


ASC(caracteTe.) = 


7 


SUITE ; 


ASC(caract6re) - 


8 


CONNEXION ; 


ASC(camct^re) = 


9 


CORRECTION ; 


A.^C(caract£re) = 


13 : RETOUR-CHARIOT. 



Remarqucs 

• sur le Macintosh, lorsque le tampon d'entrdc contient 
plasieurs caracteres, le caractere retoumfi par SAISIE est 
le premier i;aract&re entr6 non !u (voii PURGE), 

• les caractSires dont les codes different sur le Minitel et 
rordinateur-serveur sent recod^s. 

Ex^tnple 

10 REM Ex«fliple diutiliaation da SAISIE 
20 SAISIE C% 

Voir aussi ACCEPT. ACCEPTF. SECRET. 
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SANSLIGNE 

Syntaxe de rtQstructiun 
SANSLIGNE 

But 

Initialise le mode non lign6 ou non souIign6. 
Explications 

■ si le Minitcl utilisateur est en mode semi-graphique, 
SANSLIGNE passe I'afflchage en rriude non ligne 
(caractcres semi-graphiques joints) ; 

• si le Minitel utilisateur est en mode teicte, 
SANSLIGNE passe I'affichage en mcxle non soulign6 ; 

Remarque 

Dans le cas du mode texle, SANSLIGNF. envoie m attribul 
latent qui ne sera valide par le Miniiel utilisateur qu'a !a 
reception d'un espace (ASCII 32). 



Exemple 

10 REM Exempla d ' utlliEation de SEBVOFF 

2 SERVOFF 

Voir aussi INIT. 



TXT 

Syntaxe de rinstruction 
TXT 

But 

Passe en mode texte. 
Exemple 

10 REM Exemple d' utilisation da TXT 
2 TXT 

Voir aussi GR, PARAMG. PARAM T. 



Exemple 

10 REM ELxeiiipl« d ' ut Hi s afai-on 
20 RT:M da SANSLIGNE 
30 SAHSLIGNE 

Voir aussi PARAMG, PARAMT, LIGNE. 



VIDECRAN 

Syntaxe de I'instruction 
VIDECRAN [cotdeur\ 



SECRET (ne fonctionne pas cn local) 

Syntaxe de rinstruction 

SECRET colonne Jigne/node.solUcmdonJonsueur. 
relour,elat 

But 

Gere una zone de saisie contrftlfe. 
Explications 

SECRET est en tous points identiquc a ACCEPT, mis a 
par le fait qir'au lieu de retoumer les caractferes frapp6s par 
I'utilisatetiT sur I'ecran de son Minitcl, on rctourne 
uniquement des caractcres (astSrisque), 

Voir aussi ACCEPT, ACCEPTF, SATSm. 



SERVOFF (uniquement sur Apple //) 

Syntaxe de I'instruction 
SERVOFF 

Rut 

Lib&re Tinterpr^teur ampersand en restaurant I'ancien 
vecteur. 



But 

efface le contcnu de I'ficran en utilisant b couleur dSsignde. 
Explications 

couleur est uue variable ou expression cntiere optionncllc 
qui designe la couleur a utiliser pour effacer le contenu de 
I'ecran : 



• 


noil 


0% de gris 


- 1 


rouge 


50% de grig 


• 2 


vert 


70% de gris 


• 3 


jaune 


90% de gris 


■ 4 


bleu 


40% de gris 


• 5 


magenta 


60% de gris 


■ 6 


cyan 


80% de gris 


• 7 


blanc 


100% de gris 


Remarque 





Si couleur est omis, Ic noir est utilisd. 
Kxemples 

10 REM Examples fi ' ut llieat Ion 

20 REM de VIDECRAN 

30 VIDECRAN 

40 VIDECRAN 2 

SO VIDECRAN C% 

SO VIDECRAH C%<I%)+1 

Voir aussi VIDLIGNE, VIDRECT. 



22 



Pom's n° 34 




VIDLIGNE 

Syntaxe de I'instruction 
VIDLIGNE ligne,cuuleur 

But 

efface une ligne en utilisant lacouleur d6sjgn6e. 
Explications 

ligne est une vjiriable ou expression entifere indiquant la 
ligne a effacer, tigne doit etre compris entre 1 et 24 inclus. 
couteur est une variable ou expression cnticrc qui dcsignc la 
coulcur a utiliscr pour effacer la ligne : 

: noir 0% de gris 

1 : ruuge 50% de gris 

2 : vert 70% de gris 
!1 : jaune 90% de gris 

4 : bleu 40% de gris 

5 : magenta 60% de gris 

6 : cyan 80% de gris 

7 : blanc 100% dc gris 

Exemples 

10 HEM Examples d ■ utiiisation 

20 R£M da VIDLIGHE 

30 VIDLIGNE LI* , CO% 

10 VIDLIGNE i , 3 

50 VIDLIGNE 4,CO%{2) 

eO VIDLICHE L% + 1 , ABC {H$ ) - 1 3 

Voir aussi ALERTE, VIDECRAN, VIDRECT. 



VIDRECT 

Synfaxe de I'insfrucfion 
VIDRECT xl,yI^,y2,couleur 

But 

efface un rectangle en ulilisant la touleur d6sigii6e. 
Explicatiott 

xl,y}, x2 et y2 : coordonnees du rectangle a effacer. xl et 
x2 doivent Stre compris enlre 1 et 40 inclus. yl et y2 
doivent &tre compris entrc 1 el 24 inclus, 

coukur est une variable ou expression cniicrc qui dcsignc la 
coiileur a utiliser pour effiieer le rectangle t 

: noir 0% de gris 

1 : rouge 50% de gris 

2 : vert 70% de gris 

3 : jaune 90% de gris 

4 : bleu 40% de gris 
% : magenta 60% de gris 

6 ; cyan 80% de gris 

7 : blanc 100% dc gris 



Remarque 

x2 doit etre sup^rieur ou Sgal a xl . y2 dnit Stre snpdrieur 

ou 6gal Sy/. 

Exemples 

10 REM SKemples d ' ut 11 1 s at i on 
20 REM do VIDRECT 

30 VIDRECT Xl% , Yl%, X2% , Y2% , C0% 
40 VIDRECT 10,10,20,15,2 

50 VTDHEC5 X% (Xl% ) , 3, X% (X2%) , 20, C%-1 

Voir aussi VIDECRAN, VIDLIGNE. 



Pom Link 2.1 : les instructions 

ACCEPT colonne, tigne, mode, soUiciimion, longueur, reiour, itat 
ACCEPTF ilM 

AFFICHE chaine [;] (sur !' Apple if) 
AFFICHE chatrte (sur le Macintosh) 

AFFICHER chaine (uiuquement Macintosh) 

ALERTE message, bip 
APPEL itat 
BAS nomhrg 
BIP 

CADRE jc/, yl, x2, y2, type, iignage, coaltur C, couleur F 

nHARTOTIfl/jmhre] 

CNXN 

CNXR itiit 

CURINVIS 

CORVIS 

DEC NX 

DEPLACE colonne, ligne 

ENLIGNE iftat 

FIXE 

FLASH 

GR 

HAUT nombre 

IDENT valeur 1, valearl, vatew3, iim 

INIT sioi 

INVERSE 

LIGNE 

LOCALISE coiortne, llgn^, itat 
MODE mode 

MTII mode (uniqucmcnt Apple /fl 
NOHMAI. 

PARAMG couleur C, couleur F, lignage, Jlash 

PARAMT mode, coulcur C, couleur F, flask, inversi, souligni 

Pl'HGK (uniqiiement Macintosh) 

REIMT 

ROULEAU condition 
SAISIE caractere 
SANS LIGNE 

SECRET colonne, Ugne, mode, sollicliatiori, longueur, retour, itat 

SERVOFF (uniquenient Apple //) 

TXT 

VIDECRAN [couleur] 
VIDLIGNE ligne. couleur 
VmRECT jxJ , yJ , x2, y2, couleur 
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gg^ ciire une routine autonome en asscmblcur el 
P I'appeler depuis le Basic par un CALL ne 
M ^pr^sente que la difficulLe de niauipuler 
j^m^ rassembleur. Ainsi, pour faire un 'bip', il 
suffil de lire I'octel $C030 scion mi cycle et une 
frequence dqnnees. Depuis le Basic, on I'appellera par 
un CALL adressejdc d^but, CALL 768 par excriiple. 
Si Ton veut depuis le Basic donner k la routine la 
longueur du bip ct sa hameur, le plus simple sera de 
mettre ces paramctrcs a dcs adresses convenues et 
depuis la routine, d'ailer les rechercher aux memes 
adresses ; 

POKE- 6,30 ; POKE 7,150 : CALL 769 

Dans la routine, on recup^:re les paramctrcs par : 
ida $6 
sta ... 

Ida ?7 
jsr ,» 



Passer les parametres 

L'objei de cet article est de monirer (de rappeler ?) 
comment passer des paramdtres du Basic S la routine 
assembleur ; pour appeler notre bip par CALL 768, 
LG, HT ou & BIP LG+3, 3 * (HT + K) par exemple, 
Un prochain article presentera le passage alter et retour 
base sur la realisation d'un INPUT controle. 

Pour demonstration de cette prcmcrc panic, nous 
rnontrerons un nouveau PRINT, capable rt'envoyer 
une chaiiie de caracteres a un pcripherique sans utUiscr 
les fastidieux PRINT D$"PR£"dot. Tl permettra 
egalenient d'indiquer si les caracteres devront £tre 
envoycs au pcripherique avec le bit de poids fort a 1 
ou a 0. Cette caraclilrisiique est capitale pour 
remission de codes graphiques vers une imprimante 
puisque les huit bits doivent etre significatifs 
(Applesoft met systematiquemcnt le bit de poids fort ^ 
1). Cela servira dgalemetit aux utilisaieurs de 
LaserJetH- de Hewlett-Packard pour laquelle le bit 7 
positionne k 1 pose un probleme. 
Ce PRINT ne fonctionncra que sous ProDOS en 
raison de la m(Sthode de sortie de caracteres adoptee 
mais le principe du passage des paramttrcs est valable 
^galement sous DOS 3.3. 

Un noQveau PRINT 

La syntaxe de notre instruction sera : 



Jean-Jacques CoCzufiir 




6 PRINT chains, slot, polds_fort f/J 

Chaine sera une variable ou expression chaine du 
type : 

"Hello" 
A$ 

A$(13) + "Hsllo" 

STR$ (1*2) + LEFT? (A$,3j 

Slot sera une expression numcriquc rcprcsentant le 
numero de port du peripheriqne dcstinataire, sous la 
fumie : 
1 

SLOT 
S(5) 

Poids fort sera cgalcmcnt une expression 
numeiiqiie qui vaudra 2S5 ou 127 scion que les codes 
des caracteres iront de 128 a 255 ou de a 127 (pour 
les periphcriques qui n'utUisent que 7 bits ■ — Minitel 
par exemple — ce parametre sera sans effet visible). 

Voici des expressions valides : 

£ PRINT "Nos" + CHR4 (8) + ""l", 1,127 

5 PRINT A$ (5) , SLOT, PP 

6 PRINT STR$ (A = B) , 2, 255 

Pour les lignes qui suivenl, nous prendrons I'exemple 
de la ligne Basic : 

100 i PRINT "Esssl", 1, 127 : IF A = ... 
T 

la flcchc indiquc le caract&re design6 par le pointeur de 
programme (TXTPTR en SB8, $B9). 

L'ampersand 

Premiere etapc, I'insiallation du vecteur ampersand 
('&' ou esperluettc). Lonisque I'intcrpreteur Basic 
rencontre un &, il execute un saut a I'adrcssc $3F5. II 
nous suffit done d'installer, a cette adresse, un vecteur 
(un saut) qui vise le debut de notre inteiprdieur. Ainsi, 
noire routine prendra en charge Tanalyse du 
pTOgrannmc Basic apr^s lecture de l'ampersand. 

Ida £$4c code de jump 

sta $3F5 

Ida £<debut adresse 

sta ?3FS 

Ida £>dsbut adresse 

sta $3F7 

rln fin d'initialisation 

debut ... 
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Lors du BRUN (ddmarraKe du prograriiiiie en 
langage- machine) de notre routine, seule rinstallalion 
du vecieur sera piatiquee ; on ne sauiera ^ debut que 
lors de la rencontre d'un &. Notons qu'il s'agit la 
d'une meihode brutale : I'ancien vecteur est dcrase 
sans sauvcgarde. La bonne meihode, pour que 
plusieurs routines ampersand puissent cohabiter 
consiste a noter le vecteur existant ct ^ y fairc un saut 
si la commande ne nnus concemait pa>s. 

Apres renconttie d'un &, le pointeur de programme est 
dispose ainsi ; 

100 & PRINT "Essal", 1, 127 : IF A = ... 
T 

avec dans A caractfire qui suit !"&, en I'occurence, il 
doil s'agir du 'token' (code du nrrot-cle) de PRINT 
c'cst-a-dire SBA (pour le irouvei, il suffii de taper 
NEW ; 10 PRINT ei de passer en moniteur pour lire 
les octets ipanir dc S801), 

deiaut cmp £$BA 
bBq ok 

jmp SDECS SNERR routine qui stoppe le 
prograniine Basic avcc ie 
message syntax error) 
ok jsr $Bl CHRGET saisi Ic caractere 

suivant et avance le pointeur 
dc programme d'un octet 

Arrives ici, nous nous sorames assures qu'il s'agit 
bien de PRINT et le TXTPTR se presentc ainsi : 

iOO & PRINT "Essai", 1. 127 : IF A = .., 
T 

Nous pourrions maintenant par une suite de JSR 
CHRGET saisn les caracteres a afficher mais il est 
preferable de faire confiance & I'AppleSoft : 

Ida £0 Rdinitialise le calcul des 
sta 452 chaines temporaires 
jor $DD7B FRMEVL, donne un Syntax 
Error si besoin 

FRMEVL est la routine d'evaltiation des formules, ce 
qui permcttra I'utilisation d'cxprcssion complexe du 
style STRS (3 * AB) + "ERR" + CHRSCIO). Elle 
dvalue I'exprcssion qui debute sous Ic TXTPTR ct qui 
se tcmiine par une virgule (ou une fin d'instmction ou 
de programme). Le rfsultat se trouve en FAC, zone dc 
6 octets 5 partir de reservee aussi pour tons les 
calculs sur les iiombres en virgule floltante. Si 
I'expression evaluee etait une chaine, ct c'est le cas, 
seuls deux octets nous servent : SAO, $A1. Us 
forment un pointeur sur le descripteur d'une chaine 
tcmporaire que FRMEVL a crd^e a panir des 
constituants dc rcxpression. 

Le descripteur, pointee par $A0, $A1 se pre'sente sur 

I'Applc // ainsi ; 

octet I : longueur dc la chaine 

octet 2 : poids faible de I'adresse du premier caractere 

octet 3 : poids fort de I'adresse du premier caractere 

Assurons-nous d'abord que I'expression evaluee par 
FRMEVL etait bien une chaine : 



jsr $DD6C CHKSTR donne type mis- 
match si ce n'est pas une 
chaine 

Ceci fail, nous pouvons sauvegarder le pointeur sur le 
descripteur de la chaine a afficher ei nous interesser 
aux paramctrcs suivants : 

Ida $A0 FACMO, poids faible de 
I'adresse 

sta $85 FORPNT qui recoil habituel- 
lement le pointeur sur la 
dcmicre variable utilisee 

Ida $A1 poids fort 

sta $86 

Notre TXTPTR est maintenant positionn^ ainsi : 

100 S PRINT "EasBi", 1, 127 : IP A = ... 
T 

Pour e valuer le num^ro de slot, nous utiliserons 
GETBYTC qui saute un caractere (en roccurcnce la 
virgule) et qui evalue I'expression suivant ce 
caractere. Le resultat de cettc dvaluation doit tenir sur 
un octet (de 11 255) sinon nous aurons un Illegal 
Quantity Error. Le resultat est dans le registre X : 

jsr $E6F5 Gctbytc 

sbx $6 on stocke en $6 le n° de port 

Idem pour Ic sens du bit de poids fort : 

jsr $E6F5 (jCthytC 

sta $7 on stocke en $7 le sens du 
poids fort 

Nous avons tous les parametres, v^rifions si un ";" 
suit, le TXTPTR se prcsentant ainsi ; 

100 cE PRINT "Essai", 1, 127 : IF A = ... 

t 

II faut lire le prochain caractere du Basic mais sans 
increiiienier le TXTPTR au cas ou ce ne serait pas un 
point-virgule. C'est I'objet de CHRGO'l', semblable k 
CHRGET mais sans increment ; au sortir dc 
CHRGOT, le caractere lu est dans A et le bit Z du 
regisire d'^lal est positioniic si on ^tait cn fin 



d'instmction. 






Ida 


£0 


initialise le drapeau de retour- 


sta 


$8 


chariot 


jsr 


$B7 


Chrgot 


beq^ 


CI 


si = 0, il n'y avait pas de ";" 


cmp 


£$33 


est-ce ";" '/ 


bne 


SI 




jar 


$B1 


saute le ";" 


jmp 


pascr 




§1 jmp 


$DEC9 


Syntax Error 


cr dec 


$8 


note qu'il faudra un relour- 






chariol 



pascr 
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Dans notre exemple, le TXTPTR n"a pas bouge 
puisqu'il n'y avail pas de poiiit-virgule, 

100 £ PRINT "Esssi",l,121 : IF A = .., 

t 

Nous avons tons les elements ; nous dcvons les 



pas de port au-dessus dc 7 

donne Range Error 
PFvaut 127 ou 255 



and $7 

jsr $FDED 



fort demande 
Cout 



contrfiler ; 




Ida 


$€ 


cmp 


i.S 


bcc 


port ok 


srr jmp 


rgerr 


portok Ida 


$7 


cmp 


£$7F 


±>6g 


pfoJc 


cmp 


£$FF 


bne 


err 



sinon Range Error 



pfok 



II faut maintcnant rcdiriger la sortie de caracteres vers 
]e peripMrique chom. Le mieux, sous ProDOS, est 
de reriiplaccr It; PRialut par une modification du 
vecteur dc sortie de caracteres dans VECTOUT en 
$BE30-$BE31 : sauvegiirde I'ancien vccLcur, 
rcmplaccment par $CnOO, n etant le num^ro de port. 



pfok 



Ida 

laa 
sta 

Ida 
sta 
Ida 
ora 
eta 



tBEJO 
an CVS e 
$BE30+1 
ancvmc-i-1 
£0 

$BE3D 
$€ 
£$C0 
$BE31 



sauve I'ancien vecteur 



inslaUt; k nuuvcau 

En $6, c'est le n° de port 
Ic icsukat, c'est Cn 



Maintenant, affichons la chaine en recopiant d'abord 
son descripieur en page : 



§1 



§2 



Idy 


£2 


copie le descripteur 


Ida 


(^85), y 


en page 


sts 


$18, y 




dey 






bpl 


§1 




iny 






d0c 


$18 


longueur chaine 


bmi 


fin 




Ida 




charge un caract^re de la 






chaine 


ora 


£$80 




and 


$7 


positionne poids fort 


■jsr 


?FDED 


Coul, sonic dc caracteres 


jmp 


§2 





Si demande, on affiche un retour-chariot la suite de 
la chaine en veiUant au bit de poids fort : 

fin hit $8 afficher un retour-chariot ? 

bpl sortie [ion si posilif 
Ida £$8D oui, on licnt compte du poids 



sortie 



Rcstituons enfin le vecteur de sortie de caractere 
(c'eTair I'ecran 4(1 ou 80 colomies ou peut-etre un atitre 
peripherique) : 

sortie Ida ancveo restitue I'ancien vecteur 
sta SBE30 
Ida ancvec-^l 
sta $BE31 

rts et revicnt au Basic 

Ajoutons la prise en charge d'un evcntuel Range 
Error : 

rgerr Ida £2 

jmp $BEO$ 

etle sluckage de I'ancien vecteur : 
ancvec ds 2 







Source PRINTS 
Assembleur ProCODB 


















print 










i 




ory 


f300 










2 








0300: 


A3 


4C 




3 




Ida 


£?*C 


0302: 


SD 


Fi 


03 


4 




sta 


$3T5 


O105: 


A9 


10 




5 




Ida 


E<debut 


D307; 


SD 


FS 


03 


s 




sta 


S3Fe 


OJOA; 


A9 


03 




7 




Ilia 


£>-dsbut 


020C: 


BD 


F7 


03 


9 






^3r7 


030F'. 


SO 






9 

19 




rts 




0310: 


C9 


BA 




11 


debut 


cmp 


£$afi, 


0312: 


TO 


03 




12 




bet] 


ok 


0314: 


4C 


C9 


DE 


13 




imp 


$DECS 


031 7: 


SO 


Bl 


00 


14 
15 


ok 




$BZ 


031 A; 


A9 


00 




lb 




Ida 


£U 


031C: 


85 


52 




17 






?S2 


031E: 


20 


7B 


DD 


13 
19 




Jsr 


$DD7B 


0331 ! 


20 


6C 


DD 


20 
21 




jsr 




0324: 


A 5 


AO 




22 




laa 




0326: 


85 


S5 




23 




sta 


$S5 


0328: 


A5 


Al 




24 




Ida 


Ml 


atPA: 


as 






25 
26 






sse 


032c: 


20 


F5 


EB 


27 








i}J2i-: 


a 6 


Vb 




2lf 
29 




StlX 


f6 


Q331 : 


20 


FS 


BE 


30 




isi 


fESFS 




86 


07 




31 
32 






S7 


Q33e: 


H9 


00 




33 




Idd 


£0 


033S! 


as 


OS 




34 




sti 




033A: 


20 


B7 


00 


35 




jsr 


SB7 


033D; 


FO 


OD 




36 




beQ 


Cfi 


033F: 


C<} 


.Iff 




37 




cmp 


LS3B 


DJ-JJ : 


DO 


Cf 




38 




tone 


SJ 


0343: 


20 


Bl 


00 


39 




jsir 


$B1 


0346: 


4C 


4E 


03 


40 
41 




jmp 




03^S: 


4C 


Ci 


DS 


42 
43 


§1 


iifp 


SDECS 


034!:: 


:s 


OS 




44 
45 




dec 
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034E: 


AS 


OS 




4e 


PA SCR 




$6 




C3 


OS 




47 




Cinp 


ce 


03i2: 


30 


03 




IS 




bcc 


port cX 










49 








0354: 


4C 


AC 


03 


50 
^ 1 






Caere 


0357: 


flS 


07 




S3 


port oM 


Ida 


$7 


0359; 


ss 


7F 




S3 




cmp 


£$7F 


0J5U.- 


to 


04 




54 






pfoK 


0350: 


C9 


FF 




55 




cmp 


£SFF 


035F: 


DO 


fj 




56 




bne 


^rr 


n.ifi : 


An 


.in- 


BK 


57 


pfok 


}da 


SBF.30 


03€i! 


SD 


Bl 


03 


58 




St3 


ancvec 


0367^ 


AD 


31 


BE 


5S 




Ida 


11 




So 


B2 


03 


SO 




Std 


^ncvectl 


035D; 


AS 


00 




SI 




Ida 


£0 


D36F: 


8D 


30 


BE 


61 




sta 




0372: 


A5 


Off 




S3 




Id A 


$s 


0374: 


09 


CO 




S4 




ori 


csco 


03761 


90 


31 


BE 


ES 




sta 


$BB31 










S6 








03'i3: 


AO 


02 




S7 




lay 


t^ 


03 7B: 


Bl 


S5 




SS 


§1 


Ida 


($85), y 


037D; 


S9 


13 


00 


S9 




sta 


?1 8,y 


0-1 a (3.- 


SB 






70 




dey 




JHJ 


J 


FS 




71 




bpl 


§1 










7Z 








0383: 


C8 






73 


§2 


lay 




03S4: 


C6 


18 




74 




dec 


SIS 


03BS: 


30 


ec 




75 




bud 


fin 


03Se: 


Bl 


19 




7(5 




Ida 


fS19J,y 


03SA! 


OS 


SO 




77 




ora 


£SSO 


Q3BCi 


Z5 


07 




?s 




and 


57 


03SE: 


10 


ZD 


FD 


73 




Jsz 




0391 : 


4C 


83 


03 


SO 




}mp 


Sir 










SI 








0394: 


24 


08 




S2 


fin 


bit 


S3 


03S6: 


10 


07 




93 




bpl 


eorf If 


0390: 


AS 


BD 




34 




Ida 


£SSD 


039A: 


25 


07 




35 




and 


97 


Q39C: 


20 


ED 


FD 


86 




jsr 


Si'UED 










87 








039F: 


hU 


Bl 


03 


88 


sortie 


Ida 


ancvec 


03k2: 


SD 


30 


BE 


89 




sts 


SEE30 


03 AS: 


A£} 


B2 


03 


30 




JdJ 




^3f,$: 


SD 


31 


BE 


3J 






?BE31 


03AB: 


SO 






sz 




rts 












33 








03AC: 


A3 


02 




94 


igezr 


Ida. 


£2 


03AE: 


4C 


03 


BE 


95 






$BE03 










as 
















?7 




ds 
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InterPom*s 

version 2.0 



Des transmissions 
intelllgentes 
entre : 
Apple// 
et/ ou 
Macintosh' 
et/ou 
JBM®et compatibles 



TM 



fk 



Aprfes I'article de Damien Nould dans Pom's 
33, ct I'clogc qu'cn faisait aussi J,Y, Bourdiriy 
vous etiez nombreux k rechercher 
vainement SuperMacroWorks che^ les 
revendeurs. 

Pom's a obteiiu de Beagle Bros la possibilite 
de diffuser ce programme de Randy Brandt 
dans ses versions fran^aise et americaine. 

Precisons que, si SuperMacroWorks est bien 
entendu compatible avec toute carte 
d'extension memoire pour Apple // (cartes 
Apple, Applied Engineering, Checkmate et 
autres), il ne necessite aucun equipement 
special : du moment que vous pouvez 
charger AppleWorks 1.4 tel qu'il est, vous 
pouvez utiliser SuperMacroWorks. 

Pour les techniciens : SuperMacroWorks se 
loge dans la carte langage de la rnemoire 
auxiliaire, ce qui n'est pas simple, sachant 
que vous n'avez plus a lots de ROM et que 
vous devez utiliser la pile et la page zero de 
la memoire auxiliaire. C'est d'ailleurs 
pourquoi AppleWorks renonce a utiliser cet 
espace. Les seules exceptions imaginables a la 
compatibilite avec SuperMacroWorks 
seraient done pour le proprietaire d'un ][+ 
qui aurait modifie AppleWorks avec 
Plus-Works 2,0 ou le 'patch' fourni avec la 
carte Ramfactor d'Applicd Engineering (ce 
qui est malin), ou I'improbable proprietaire 
d'un //e qui I'aurait laisse a 64Ko avec une 
carte 80 colonnes non etendue et aurait fait 
I'une des deux modifications precedenLes 
pour charger quand meme AppleWorks. 

Attention : la version fran^aise que nous 
diffusons est la version 1.2. Cette version 
etant debuguee, il ne faut plus faire le patch 
de Pom's 33 page 67. Si vous avez une 
version anterieure, conLactez votre 
revendeur. Si vous n'avez que la version US 
de SuperMacroworks, adressez-vous h 
Dimitri Geystor (Pom's 33 page 63). 

Et si vous n'avez pas encore 

SuperMacroWorks . . . 

Prix : 500,00 F TTC - abonn(5s : 450,00 F TTC - Port 20,00 F 
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*Eric WeyLand 



yomme c'est la 
lecture de I'arii- 
cle de J. Bourdin 
om's 33 qui m'a 
icr commandc an 
3el de quelques 
H programmes de la serie 
M, dcs TimcOut de Beagle 
^ m. ^ Bros je n'ai pas 
^^^^^^pu refuser quand 
^^^^ il m'a dcmandc 
d'expliquer ici pourquoi je suis 
bien concent d'avoir pens6 a 
mettre mes sabots dans la 
cheminee. 

Le principe : 

continuer 

AppleWorks 

La serie des TimeOut ajoute une 
quantise de lonclions nouvelles a 
AppleWurks, a la fois paifaitement 
indSpendantes les unes des autrcs el 
totalement inL6grecs aussi bien a 
AppleWorks qu'entre elles : chaque 
disque TimeOut fournit en mSme 
temps unc modificaiion <XAppieWorks 
qui est le noyau inlcgrateiir commun, 
veritable exploit de programmalion 
sign6 Alan Bird, et une nouvelle 
"application" qui sc charge cn prcnant 
une partie du bureau A'AppleWorks, 
fonciionnani en 'overlay' (un segment 
de programme charge momcntan£mcnt 
du disque) A'AppleWorks. Nu! besoin 
de sauver puis recharger I'eiat present 
dc la m^moire AppleWorks^ comme 
avec Pinpoint. 

C'est li ^videmmcnt une ouverture 
fanlastiqite pour AppleWorks : loin de 
fournir comme Pinpoint des 
accessoires supp16mentaires dans une 
application, ou des applications 
exterieures k la prenii£ie, TimeOui 



transforme AppleWorks en une sorte 
de super-sysieme d'exploiiaiion 
pilotant dcs applications intigrces. On 
peut parfaitement imaginer par 
exemple un assembleur TimeOut 
assemblant sous AppleWorks des 
snnrces cnnstituees de fichiers 
iraitement de teste. Disons que 
TimeOut reussit avec AppleWorks, 
sans menus d^rniilant.s; ni fenetres. 
mais avec une transparence parfaile, ce 
qui a 6t6 rat6 {h. mon humble avis) sur 
IBM avec Windows : un integrateur 
d'applicatlons. Ou bien disuiis que, de 
m&me qu'il cxiste un "aletier du 
programmeur" {Apple Programmer 
Workshop) sur GS, il cxisie 
maintenant un "atelier de I'utilisateur" 
{Appie... works !) sur //c, //e et 
IIGS : on peut tout fairc sans sortir 
de son atelier. 

Telle etait la philosophie de, Roh 
Lissner, I'auteui ^'AppleWorks : il 
faut bien sur intSgrer I'interface 
utiliaateur, mais ce ne snnt pa,^ les 
menus dcroulants, souris, fenetres, 
etc., qui font i'inlegration. II s'agit la 
seulement de I'expression visible 
d'une autre intSgratiuu, celle des 
operations que fait I'utilisateur et des 
donn6es qu'il manipuie. Tous les 
"coupcr-collcr", les acccssoircs dc 
bureau, etc., ne sent qu'un pile 
substitute un pauvre "faute de mleux", 
de I'intdgration vraie. C'est parce que 
Beagle est totalement fidele a cette 
inspiration initialc CAppleWorks que 
TimeOiii est unc telle reussite, 
Unc consiiqucncc ddsagnSabIc dc ccttc 
integration est que la s6rie des 
TimeOut ne marche et ne marchera 
sans doutc jamais que sur la version 
am&icaine 2,0 d'AppleWorks, et pas 
sur la version frangaise 1.4, Non que 
ccla soit tcchniqucmcnt impossible ■ 
male il faudrait alors adapter et 
iraduire chacutic des applications 



TimeOut pr^sentes e( futures, ce qui 
repriSsente inorm^meni de travail, 
L'invesiisscment. est sans douie trop 
grand pour eire reniable (a moins 
qu'un laux speciaculaire de vcntes de 
SuperMacroWorks en France o'amfene 
Reagle & rdfl&hir, qui sail ?). 

Second point & savoir ; U vous faut de 
la place sur le bureau {de la memoiie). 
Bien siir, vous pouvez choisir de 
charger en memoire certaines 
applications seulement au demarrage 
d'AppleWorks, et TimeOut vous 
permet d'appeler ensuite, sous 
AppleWorks, en cas de besoin, une 
autre application depuis le disque (y 
compris le disque Ram type 
Speedisk) ; il vous permet egalement 
de vider la memoire et le bureau des 
applications doni vous nc vous scrvcz 
plus, aussi facilemcnt qu'on efface un 
fichicr du bureau. Mais une 
application comme TimeOut Graph, 
chargee de faire des graphiques avec 
les fichiers tableur, prend a elle seule 
56Ko sur le bureau d'AppleWorks : 
avec line machine de 128Ko. 
I'Apple // courant, vous ne pourrcz 
pas charger, en meme temps que 
I'application, le. fichicr lableitr qu'elle 
doit iraiter ! 

II faut done soil avoir suffisamment 
de memoire pour ne pas etre g§n^, 
soit renoncer aux TimeOut et quitter 
AppleWorks pom utiliser des 
programmes ind^pendanis de lui (en 
I'occurrence Visualizer de FBI ou 
Graphic Edge dc Pinpoint). Inutile 
done de pr^ciser que les TimeOut som 
compatibles avec praliqucment touies 
les sortcs de carte m£moire qui 
permetteni d'dtendre le bureau 
d'AppleWorks : il s'agil ici d'une 
n6cessit6. 

Troisiimc point k savoir : il vous faut 
de la place sur disque pour placer vos 
fichiers TimeOui, puisqu'en fait c'est 
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AppleWorks qui cnflc. Si vous avcz 
iin lecteiir on iin riisfiiic. tiur, pas 
de problfeme (les TimeOui soni 
d'ailleurs livr& a la fois sur disqueLte 
5,25" et sur disquetle 3.5'). Si vous 
avez uii M6ga de Ram, vuus pourrcz 
vous debrouiller. Mais si vous n'avez 
que 12SKo et deux lecleurs 5,25\ il 
va falloir juiigler ; au iJebui vcjus 
pourrez placer vos applications 
JimeOut sur votrc disque de donnecs. 
Mais ellcs risqucnt vite de rcmplir la 
disquette. Bref, avec les TimeOui, 
c'est non sculcmcni AppleWorks, 
mais I'AppIc lui-nicine qui giandit 
Les deux faces d'une disquelte 5,25' ne 
lui suffiscni dcja plus pour siocker 
toutes les polices de Time Out 
SuperFonls. 11 faul done serieusement 
songer aux extensions n6cessaires 
(mcinoije, lecicurs dc disqucs). 

LMntlispensable : 

TimeOiit 

SuperFoiits 

TimeOut Super/onts de Mark 
Simonsen esi line, vrate merveille. 11 
imprime les fichiers lexies 
AppleWorks enticrement en caract^res 
graphiQues proporiionnels, vous 
duiiiie le tlioix euuc quatre qualitds 
d'impression possibles, dans les 
"styles" (ilaliques. inverse, gras. 
suuligue, L)!iibi6, silhouciie, indices, 
exposants) du Mac lous combinables 
sur la meme ligne, avec les dessins 
(HGR ou DHGR mais pas SHGR) ou 
les parties de dessins que vous voulez, 
avec les polices que vous voulez 
(jusqu'^i 64 dans le meme teste : la 
disquette en fournit 47, ci d'aucres 
disquettes de polices sont promises a 
bon marchc), 

Lc lie ou //c est transform^ en 
Macintosh ou en G,? monochrnme : 
d'ailleurs il utilise l&s polices du Mac, 
qui sont aussi les polices sysl&me du 
GS. Sculc difference avec le Mac ; 
vous tjavaillez voire te^de sur I'dcran 
texte AppleWorks, et il faut choisir 
I'option "Imprimer sur ecran" pour 
voir h I'avance ce que donncra vou-e 
impression graphique. 11 reconnalt 
toQtes les options d'impressions du 
traitement de texlc AppleWorks, 
auxquelles il ajouie les siennes (enfin 



la vraic justification a droitc avec 
AppleWorks !). II nous donnp. acces & 
tous les caractferes des polices Mac, et 
utilise des polices de 8 h... 127 
points ! 

'Voila un serieux concurrent pour 
M uhiScribe^ Prinirix ei.,. GSWriit 
(il imprime plus vile que GSWrite - 
ce qui n'est guere difficile - tout en 
LtilisaiU ses polices, et il reconnait 
plu!- de 40 imprimantes). Seul 
problem e ; pour le moment, il ne 
dispose pas d'cditeur de polices (a ce 
propos : quel ^diieur de polices 
syslbriie utilisez-vous sur GS ?], Pour 
nos accents, il faut done par excmple 
remplacer chaque "6" par 
"<x2>N<xl>" avant I'impression 
avec les polices fournies sur la 
disquette. 'Voila une belle macro 
SuperMacroWorks a faire... Mais 
Mark Simonsen nous promet pour 
bientot un Universal Font Editor. 
loujours Chez Beagle, qui permeiu-a 
d'6ditcr les polices Mac ou GS Write, 
y compris sur //e. 

Notons que TimeOut SuperFonts nc 
p^rime pas GraphMerge de Pinpoint, 
qui imprime aussi ies images dans les 
fichicrs AppleWorks, mais imprime 
!e texte en mode texte au lieu du mode 
graphique dc SuperFoms. GraphMerge 
s'accommodc done d'une police 
transf^rfe dans I'imprimante, cr que ne 
peut faire SuperFoms. 

Les utiles : 

FilcMastcr, 

Graph, 

SideSpread, 

QuickSpell 

TimeOui File Master est une 
sorte de Filer evolue uu de Copy }[ 
Plus int6gr6 a AppleWorks, mais sanS 
foncdons DOS Sa fonction de 
backup selectif des fichicrs qui ne iiont 
pas dej^ en double le rend 
particulieremeni utile aux utilisateurs 
de disque dur. Et la possibiliic dc 
programmer des macros pour lui avec 
SuperMacroWorks me semble fort 
inleressante. . . 

TimeOut Graph est un bon 
grapheur en DHGR, qui fait vite et 



bicn cc qu'on attend de lui, et 
reconnaTt ressentiel des imprunantes. 
II n'est pas en couleurs, mais 
AppleWorks non plus. J'ai 
particuli&rement appreciS sacapacite a 
rctracer auluniatiquement les 
graphlques des que vous changez une 
valeur dans voire fichier lahleur. 
Cuitiirie ce fidiicr est en memoire en 
mime temps que TimeOui Graph, on 
peut percevoir immediatement ce 
qu'est riiit^gralioii vraie. En fait, 
AppleWorks est tout simplement dot£ 

desormais de la fonction graphique 
intcgrcc qui lui manquait. 
TimeOut SideSpread est dc la 
m&me veine : il int^grc tranquillcmcnt 
k AppleWorks la fonction 
d'impression verticale des fichiers 
tableurs tiop larges qui demandait 
auparavant de sortir d'AppleWorks 
pour utiliscr FontWorks ou 
SideWays, et reconnait 6galeme.nt 
I'essentiel des imprimantes. 

TimeOut Quickspell est plus 
rapide que Pinpoint Spelling Checker 
pour coniger vos fautes en anglais, et 
fait aussi bicn que Pinpoint 
Document Checker, (meme en 
laissant son diciionnaire de 80 CX)0 
mots sur disque : si vous mcttez 
celui-ci sur la carte Speedisk. c'est 
qjasiitieni iiistaiUane), le tout sans 
avoir hesoin de quitter AppleWorks. 

Le superflu : 

TimeOut 

DeskTooIs 

TimeOut DeskToals me .siemblft 
un produii assez inutile, engendrfi 
uniquement par la necessity purement 
commerciale de "couvrir tout le 
terrain" de ce qui se vend dejii bien sur 
Apple // (les acccssoires Pinpoint en 
I'occurrence). Les fonctions de ces 
actessoires de bureau sont tout aussi 
bien remplies soit par AppleWorks 
lui-meme (la calculette = le tahleur ; 
le bloc-notes = le traiienieni de 
testes), soit par des macros 
SuperMacroWorks (calendrier, 
adjesseur d'enveloppes, conipuseur 
t^l^photiique, horloge, conversion 
majuscules/minuscules, d^compte des 
mots d'uu texte, el nicnie rencrypiage 
des fichicrs). 
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Beagle ne nous avail pas habitues a ce 
genre de frivolitds. Quoi qu'il en soil, 
I'abonnement a Pom's, i ses disques, 
et a ses programmes de macros pour 
SuperMacroWorks est un bicn 
meilleur investissement que les 
TimeOut DeskTools. 
" Mais ~ me dircz-vous - les 
publicil^S de DeskTools parlent d*un 
Htilitaire de conversion des donnees 
qui permet de passer dircxtcnieni. par Ic 
presse-papier, sans rintermediaire d'un 
fichier DTF siir disque, rJes categories 
de la base Ue dojiJi6es dans dcs 
colonnes du tableur, et vice versa, et 
c'est qoand meme plus pratique qu'une 
mauru qui passe par un disque, meme 
MTi disqoe Ram comme celui de la 
carte Speedisk, n'est-ce pas ? 
— Bien sQr. mais ce que les 
publicil6s nc disent pas, c'est que cci 
accessoire est ^galement fourni, en 
prime, avec TimeOut Graph et 
TimeOut UltraMacros. . . 

Pinpoint, 
TimeOut, 
Macros : 

compatibilifes, 
incompatibilites 

Une excellenic nouvelle : tous les 
TimeOut (sauf UltraMacros) sont 
entiferemp,nt compaiihle.s avec. 
Pinpoim. A I'insiallation, vocs 
'patchez' d'abord AppleWorks avec 
Time.O lit, puis vous y installez 
Finpoini. Une fois AppleWorks 
chargd, il suffit dc fairc i-P pour 
accfider h Pinpoint, et 0-Escape pour 
acceder a TimeOut. 
Du coup (ei c'esi sans doute pourquoi 
Beagle ne crie pas sur Ics toils ccttc 
honne nouvelle), il me semble que lej; 
TimeOut qui doublent les accessoires 
de Pinpoint {Corrcclcur, accessoires dc 
bureau par exemple) ne, sont pas 
indispensables a qui a dfij^ Pinpoint, 
D'autant que Pinpoint, lui, s'installe 
aussi dans Basic System, Word 
Perfect et aulres, el pas seulement 
dans AppleWorks, ct permet avec 
Pinpoint TnnlKit de programmer 
soi-inenie ses propres accessoires. De 
plus Pinpoint reconnati aussi 
AppleWorks 1.4 Irangais (meme si 



certains des accessoires tels le Speller 
ou les macros KeyPlayer nc marchcnt 
qu'avec AppleWorks amdricain). 

Deuxieme bonne nouvelle : les 
TimeOut sunt compatibles avec 
SuperMacroWorks et AutoWorks. 
Mais... ces deux programmes de 
macro;), ain&i d'ailleurs 
qu'UltraMacros , ne soni pas 
eux-raemes compatibles avec 
Pinpoint (sauf AutoWorks qui offre 
une option de choix du banc memoire 
aux proprieiaires d'une carte 
d'extension mdmoire type RitmWorks 
ou MultiRam sur //e ou //c). Les 
gourmands qui voudront avoir loui en 
meme temps (Macros ET accessoires 
Pinpoint ET applications TimeOui), 
devront done utiliser KeyPlayer, le 
programme dc macros de Finpoini. 
Mais... KeyPlayer n'aiitomatise que 
les foncUons AppleWorks, pas ccllcs 
dc Pinpoint ni celles de TimeOut, et 
ne marche pas avec AppleWorks 
fran^ais. 

Bien entendu vous Stes completement 
perdu dans le dedale des informations 
qui pr6c6dent : cela prouve que vous 
etes nomalemcnt const! tue, j'ai du 
mal a m'y reirouver moi-mcme. Ne 
nous plaignons pas trop dc notro 
difficulte a comptabiliser notre 
fortune, et simplifions, 
Si vous uiilisez AppleWorks 1.4 
fran^ais, vous ne pouvez rajouter a 
AppleWorks qu'nn sen! programme de 
macros, SuperMacroWorks, et un seul 
programme d'extensions, Pinpoint. 
Vous nc pourrez pas les utiliser en 
meme temps, il faudra quitter I'un 
pour utiliser I'autre. Et vous n'aurez 
acccs qu'^ certains accessoires de 
Pinpoin t. 

Si vous utilisez AppleWorks 2.0 
amdricain, Ic tableau joint k cet article 
devrait vous eclairer un peu plus. 

UltraMacroWorks 
ou... 

SuperMacroWorks ? 

TimeOui UltraMacros, !c dcmier-ne de 
Randy Brandt, est bel et bien encore 
plus doue que son alne 
SuperMacroWorks. Mais il partage 
avec lilt le temperament fier et 



inddpendant de son auieur. Car, quoi 
qu'cn disc Beagle, ce n'est pas 
vraiment une application TimeOut 
comme les autres. II ne se logc pas 
dans le bureau d'AppleWorks, mais 
dans la place ]aissee libre par celui-ci 
(la carle langage de la memoire 
auxiliaire : c'est d'ailleurs pourquoi i] 
est le seul TimeOut qu'on puisse 
recommander au mSme titre que 
SuperMacroWorks a ceux qui n'ont 
que I28KO de memoire). II n'est pas 
un subalteme docile qui rcstc a sa 
place tant qu'on ne I'appelle pas, 
comme les autres TimeOui . Bien 
entendu il est compatible avec les 
autres TimeOut : mais c'est pour les 
commander. II m'a fallu fouiller, mais 
j'ai pu d^couvrir page 26 de la 
documentation une de ses fonctions 
les plus intdressantes : il automatise 
Sgalement les fonctions des 
applications TimeOui. 

UltraMacros est une sorte dc langage 
de program mation complct pour 
AppleWorks et TimeOut qui integre 
louies les commandes de YApplesoft, 
y compris les manipulations de 
chaines, et en rajonle meme (IF 
THEN ELSE). Il permet d'introduire 
ses propres routines machines dan.^ 
AppleWorks avec les macros Peek, 
Poke et Call, de crfer des macrui avec 
4 et 0, des "macios-r6veir qui se 
d^clenchent a I'heure choisie, des 
"lichiers-iaches" qu'on lance depuis le 
s6lcctcur du ProDOS, il 6tcini 
provisoirement I'dcran quand vous 
allez prendre un cafe, il corrige le bug 
du ControLa dans la ddfiniUon des 
codes imprimantes. 

Mais... il ne reconnait pas la version 
fiaJi^aise 1.4 d'.AppleWvrks, ni les 
macros deja existantes de 
SuperMacroWorks, fran^aises ou non. 
Les macros que vous avez et aurcz 
pour la version fran9aise de 
SuperMacroWorks ne lourncront pas 
sur UltraMacros. J'ai cssay6 de 
traduire les macros agenda de Dimitri 
Geystor : c'est un joli casse-t6te (il 
faui traduire d'abord les commandes 
AppleWorks 1.4 VF en commandes 
AppleWorks 2.0 US, traduire ensuite 
les commandes SuperMacroWorks VF 
en commandes SuperMacroWorks 
US, traduire enlin les commandes 
SuperMacroWorks en commandes 
UltraMacros !). 
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SuperMacroWorks vous pcrmct dc 
fffinsf^rer une poltce Power Prim pour 
rimprimante au chargemeni 
d'AppleWorks, ce qu' UUraMacros ne 
permet pins. F.nfin — el surtout - un 
fail que Beagle s'absiieni 
soigneusement de dire, et que doivcm 
done crier siir les toiLs les uLilisateiirs 
qui ii'aiirieriL pas cc genie (ic 
cachottcries : SuperMacroWorks aussi 
auloniatise les applications TimeOui ! 
Eh oui ; quand la legion des TimtOiu 
s'est form^e, son commandant ^tait 
deja la ! 

UltraMacros me semble done surtout 
destine aux fanaiiqucs dc la 
program ma tion et du "bidoaillage" qui 
voudraieni un autre programme, en 
plus dc SuperMacroWorks, pour crccr 
des applications speciales en anglais 
seulemenL 

Si vous tenez absolument & 
UltraMacros, il vous suffira d'envnyer 
22,5 dollars a Beagle en tneme temps 
que votre disque original {version US) 
de SuperMacroWorks. 



On est prie de 
ranger soi-meme 
son bureau 

En admetiiini que vous ayez un bureau 
(une mcmoire) de taille suffisante, 
vous avez tellement d'accessoires et 
d'applications a y mettre qu'un serieux 
prublfcnie de raiigemeiil se pose. La 
Ram supplemcniaire doit a la fois 



vous scrvir a clcndrc Ic bureau 
A'AppleWorks. ^ sauver les fichiers 
Iransitoires (fichiers ASCII, fichiers 
DIF) utilises pour communiquer entfe 
deux fonetions € AppleWorks, a 
enireposer provisoiremeni la mcmoire 
de travail AppleWorks que Pinpoint y 
sanve de temps en (emps, h stocker 
les applications TimeOui et les 
accessoires Pinpoint, et meme a 
garder en permanence sous la main 
ProDOS, un s£lecteur de programmes 
et vos applications favorites (dont 
AppleWorks lui-mSme bien sQr). 
1 024Ko, c'est vraiment Ic 
minimum, mais il reste le 
range ment... Ale ! 

En fait, le problfeme est plus simple 
qu'il n'y parait : il sc rdsumc au 
"partitionnement", ce barbarisme 
ddsignant le panage tie la mdmoire 
entrc AppleWorks et son bureau d'un 
cold, le disque Ram de i'autre. Sar le 
GS, pas de prttblenie : le tableau de 
bord est 1^ pour cela. Si vous avez 
une carte memoire type MultiRam de 
Cfieckmale, RamWorks, Z-Ram wu 
RamFaclor d' Applied Engineering, les 
logiciels d' installation du disque Ram 
et de modification i'AppleWorks 
permeitent ce "partiiionnemeni". Si 
vous avez le nouvcau //c tin Mega ou 
une carte type Apple dans voire //c, 
AppleWorks dcvore toute la place 
dispnnible sur la carte pour son 
bureau, et... bigre, on ne peut plus 
rien ranger du tout ! 

La solution consiste a 'patcher' 
AppleWorks de fa^on a limiter son 



appdtit dc mcmoire, avant loutc 
modification par StiperMacroWorks, 
TimeOut et/ou Pinpoint. Deux 
programmes du domainc public sc 
chargent de ce travail pour nous. L'un, 
publi6 par Steve Stephenson, dans 
Open Apple volume 3, modific 
AppleWorks 2.0 am^ricain. L'antre, 
public par I'Echo des Apple d'Octobre 
87, est I'adaptation du premier a 
AppieWorks 1.4 frangais par J.Y, 
Bourdin. Les colonnes de Pom's 
n'^tant pas destines & ete remplies de 
listings de progrannmes du domaine 
public, nous ne pouvons les 
reproduire ici, Mais nous les avons 
ajoutfis gracieusement, en prime, sous 
les noms dc APLWorkS2 .OMOD ct 
APLWorkS1.4.MQD, sur la face 
ProDOS de la disquette Pom's 34 ... 
Bicn cntcndu, ne ics utiliscz que sur 
une copie de votre disquette 
AppleWorks ! 

Conclusion : 
innovation ou 
conformisme ? 

Vous compraie£ mainlcuanl pourquoi 
je suis si content de ce que j'at trouv^S 
dans ma chcmjnee : les TimeOut 
constituent dans leuf conception 
fondamentale une innovation 
importante et extremement 
prouietteusc pour tous les utilisatcurs 
d'Applc II et d'AppleWorks. Cetie 
innovation se situant dans la 
continuit6 de I'csprit meme 
d'AppleWorks. 



f compatible avec *- 


SuperMacroWorks 


Ultrafl8cro3 


Auto Works 


KeyPlayer 


AppleWorks 2.0 
seul 


OUI 


OUI 


OUI 


NON 


AppleWorks 2.0 
avec Pinpoint 


NON 


NON 


OUI/NON 


OU! 


AppleWorks 2.0 
avec TimeOut 


OUI 


out 


OUI 


NON 


AppleWorks 2.0 avec 
Pinpoint ET TimeOut 


NON 


NON 


OUI/NON 


OUI 


Pilote AppleWorks ET 
lea fonctiofia TimeOut 


QUI 


OUI 


??? 


NON 
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La r6ussiie commerciale me semble 
promise a cette sSrie, et il faut que 
nous assiirions cette reussite : j'incite 
fortement tous ceuA que I'anglais Jie 
rebute pas trop ^ s'offrir au moins 
TimeOut SuperFonts cn plus de 
S uper Macro Works . 

Sachons-le, le nom de Beagle ftras ne 
signifle plus la meme chose qu'avam : 
ce qui ctait un atelier d'artisans 
dScontractci et sympathiques deviant 
maintenant une entreprise modeme et 
pcrformantc, rivalisant avec les "pros" 
dii logiciel, une puissance 
commerciale qui s'impose par 
I'excellence de ses produits. Beagle 
prend la liste des principaux succfes de 
vente en matiferc de complements h. 
AppleWorks {Copy ][ Pius, Pinpoint 
accessories, MultiScride, Vismllzer, 
SidtWays^ SaperMacroWorks, 
Pinpoint Spelling Checker) et y 
substitue sa version, int<Jgrde k 
AppleWorks ct souvent meilleure que 
les autres. Sinc^rement, noti 
seulemem Je n'6changcrais pas un GS 
avec AppleWorks, SaperMacroWorks 
et TimeOut confre 2 ou 3 harils 
d'ordinateurs-X avec Windows, mais 
jc nc I'^changerais meme pas contre 
un Mac avec Micmsnft Works ! 
Cette siratcgie de Beagle est 
terliiirieineiil la bonne : unc telle s6rie 
de bons ulilitaires r^ellement int^gr^s 
est etfectivement un besoin des 
utilisat&urs. Certaines de ccs 
applications (au moins SuperFonts) 
sont tenement au-dessus du lot de ce 
qui exisiait dej& qu'ellcs sont en fait 
des innovations. De plus, cela permet 
d'assurer un bon depart, une bonne 
assise pour la sdric, cc qui pcrmcttra 
des developpements nouveaux et 
peut-ctre plus risques. Enfin cela 



La version 3.0 de Pom_Link va plus loin dans 
Sexploitation des ressources Minitel. Elle 
ouvre la porle ci la rSaiisation de serveurs tr^s 
puissants. 

Parmi les instrucfions nouvelies ; 

* gestion du mode t^l^informatique ; 

• mise en mode teleinformatique. mise en 
mode Videotex ; 



utilise le succes miriie dc 
programmes Beagle ou SoftWare 
Touch d6jk exisants {AuioWorks, 
FoniWorks, Triple Dump) pour faire 
encore mieux. 

Mais reconnaissons qu'il y a un risque 
de glissade vers ce conformisme, cc 
rennncement a la creation et a 
rinuovatiori vraie, qu'engendient les 
situations de concurrence effrince dans 
un march6 feme Callumez votre 
televiseur sur n'importc quelle chame 
pour en voir un exemple). Certaines 
applications TitneOut ne font que 
"doublonner" purcmcnt ct simplcment 
de bons programmes dija existants. 
Elles travaillent souvent mieux et 
plus vitc, mais elles font la meme 
chose : elles n'innovent pas 
recllcment. L'opinion de J.Y. Bourdin 
qui sc rijouissail dans Pom's 33 de la 
fusion Beagle. I SoftWare Touch me 
semble globalenieiii confirmee par les 
TimeOut : mais ses craintes sur 
I'orientation exclusivement uiilisaieur 
iinprim6e par la nouvclle direction ne 
sont iielas pas non plus sans 
fondcmenL^. 

J'en prends pour preuve un signe qui, 
bien que superficici, me parait 
ndanmoins qiielque peu inquidtant : 
fini de rire en lisani les 
documentations Beagle ; plus de 
gravures r^tros et de l^gendes 
humorisliques^ plus de complicity 
entre auteur ct Icctcur, plus dc din 
d'oeil ; et plus non plus de cetre 
pedagogie sourianie qui enseignait 
sans qu'il s'cn apcr^oivc au Iccteur a 
rnaJtriser sa machine, et peiit-etre, qui 
sail, a devenir un jour un auteur 
Beagle. Nous sommes au royaume des 
"pros" : tenue stricte, documentations 
"clean", compartimeiits Stanches ; 



* routine de temporisation pour aliouer des 
deiais ; 

* affichage des caracteres ^mis el re?LJS 
(debugging) ; 

* attictiage de la date et de I'heure ; 

* instruction accept sans eflacement des 
points ; 

' instruction accept rum^rlq je contrfil^e ; 

* instruction sp^cialisSes pour le change- 



utilisateurs, vous etes pries de parler 
devant I'hygiaphone, 
Gardens ccpendant confiance : les 
meilleurs programmeurs Beagle (dotit 
Randy), et une majorit6 d'utilisalcurs 
oni toujours "I'esprit Wozniak". 
Randy Brandt, qui n'a pas perdu 
I'ancienne menmlile, parseme ses 
programmes d'allusions, dc clins d'u;il 
ct d'infomiations presque cach&js. (Un 
conseil : lisez, listez, testez tous les 
flchiers ilcs disquettes TimeOut !). 
Randy a meme fonde une 
mini-entreprisc, appelce Jem 
Software, qui diffuse pour un prix 
derisoire des mini-programmes de 
I'ancien style Beagle. Si Hermes le 
Dieu messager y consent, jc pouirai 
peut-etre vous entretenir un jour d'un 
certain "Fatchmania". .. 

Des cerveaux comme ceux d'AJan 
Bird, Randy Brandt ou Mark 
Simonsen sont strictement incapables 
de se liiiiiter a amcliorer le 
programme du concurrent. Ce sont par 
essence des crcateurs : its ont dcji su. 
avec TimeOut, invcnter les chemins 
dc favenir. Preparons-nous k d'autres 
belles surprises... 

Beagle Bros/Pere Noel 
6215 Ferris Square, Suite 100, 
San Diego, CA 92121, USA. 

Jem Software/Randy Brandt 

P.O. Box 20920, El Cajon, 

CA 92021, USA. 

FBI Software, Inc 

1163 Triton Drive, Foster City, 

CA 94404, USA. 

Pinpoint Puhlishing 

5901 Christie Avenue, Emeryville, 

CA 94608, USA. . 



ment de la couleur das caracteres ou de 
la couleur defend seule; 

* idem mais exprime en pourcentage de 
niveau de gris ; 

* rfeglage du d^lai impart! la connexion ; 

* calcul automatique de la dur^e de com- 
municatiori (en minutes sntieres sur 
I'Apple //, en secondes s jr la Macintosh ; 

* fonctions ulilitaires (sur I'Apple//: bug de 
I'ONERR... sur le Maclntosli: change- 
menldecurseur, chargementdesicones 
systeme...) 



Pom Link 3.0 : plus loin. . . 
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e repoiideur leleinaLique que nous 
vous proposons ici n'est qu'une 
illustration des multiples pnssibilites 
des routines Pom_Link 2.1. II n'en est 
moins complet, fiable et convivial. 
II se distingue de 90 % des 
serveurs-kiosque par la rapidite 
et le controle des saisies au clavier : on ne 
risque pas de saisir 8 caracteres la oil on en 
attend 3 ; ainsi, I'aspect de I'ecran est 
protege. L'utilisatcur rcstc toujours dans 
les zones qui lui sent allouees. 



Fonctions du repondeur 

Lc principc dc I'cnscmblc est Ic suivant : 

Un client, un ami vous appclle cn votrc absence : 
Tapple // detecte cet appel, connecte votre Minitel. 
Votre client et neanmoins ami regoit alors la 
tonalitc familicrc aux habitues du Minitel et 
connecte son propre Minitel (avec la louche 
Connexion/Fin). Le dialogue peut s'engager entre 
votre ordinatcur-serveur et I'ami ct/ou relauon 
d'affaires, 

II aura la possibiliie de laisscr un ou plusieurs 
messages qui seront enregistres sur disque. En fin 
de communication, ordinateur-serveur et Minitel 
sc rcmcttcnt cn vcillc dans I'attcnte du prochain 
appel. 

Tout ceci se passe alors que vous etes fort loin dc 
votre domicile/bureau/atelier ? Appelez chez vous 
avec un Minitel sous la main : vous pourrez 
demander la lecture, depuis votre lieu dc vacanccs 
par exemple, des messages telematiques qui ont 



6x€ laisses sur I'ordinateur. Cet acces i vos 
messages est cvidcmment proteg^ par un mot de 
passe. Beaucoup de messages sont arrives, vous 
craignez la saturation du disque ? Vous avcz 
egalcmcnt la possibilite d'effacer le fichier pour 
liberer de la place. Luxe supplementaire, vous 
changerez si n^cessaire le mot dc passe (cas ou 
vous I'auricz communique a un ami client ? - 
pour demonstration). 



Hard : comment faire ? 



L'ordinatcur. Ce programme fonctionnc avec : 

- Apple ][+, Rom minuscules, carte langage, 
carte Super Serie Apple ou ; 

- Apple //c, carte Super Serie Apple ou ; 

- Apple //c ou ; 

- Apple ligs (sur port s6rie intdgrd ou carte 
Super Scric Apple). 

Le MiriileL II sera n^cessairement bi-standard 
(IB) c'est i dire avec modem re tour nab le 
(aujoiird'hui, c'estpresque toujours le cas). 

Le detecteur de sonnerie. Peu importe son 
type : celui dont le schdma a paru dans le 
numero 33 de Pom's convient, celui vendu par 
vorre revue preferee egalement. Notez toutefois 
que la fiabilitd de Tensemble est direciemer;t 
fonction de la qualite des composants utilises. 

Le cable Minitcl/Applc. II est maintcmant bicn 
connu. Vous I'utilisez dejk avec MinBas 
(Pom's 27), InterPom's (28), T.Pom's (30), 
Clv_Pom's, HGR/Minitel (33). S'il vous 
manque, Pom's en dispose. 

Le port ou la carte serie de I'Apple. Sur les 

Apple 11+ ou //e, la cane serie sera configurde 
ainsi ; 



swi 



on 
off 
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modem 



terminal 



Sur voire IIGS, a I'aidc du tableau dc bord, mettrc 
toutcs les options port modem par defaut sauf : 

Data/Stop Bits 7/1 
Parity : Evan 
DCD Handshake : no 
DSR/DTR Handshake r No 

Soft : comment faire ? 

Ce paragraphe ne vous concerne que si vous ne 
disposcz pas de la disquette d'accompagnemcnt dc 
ce num^ro. 11 vous faut saisir et sauvegarder sur 
une disquette ProDOS le programme Basic 
Repomdeur. En ce qui concerne, Pom.link.2.1, 
meme pensum ; il est toutefois plus fiabie de 
reprendre le source et de I'assembler car Ics 
erreurs sent en principe decelees plus facilement. 

Sur voire disquette, n'oubiiez pas dc mcttre 
ProDOS 8 (version 1.1.1 ou plus) et 
Basic. System. 

Avant de lancer Tensemble, modifier la ligne 
Basic 26 pour indiquer : 

- votre mot de passe a la place de ABCDE {de 
4^7 caractferes ; 

- votre num^ro de telephone a la place de (1) 
12 34 56 78 (maximum 1 .*> caracteres) ; 

- votre num i la place de M. Xxxxxxxxxx 
(maximum 15 caracteres). 

L'ensemble est alors pret & enregistrer fidclcmcrit 
les messages ; faire simplement : 

RUN BEFOMDBUR 

La premiere tache du programnic sera de creer le 
fichier (le message Erreur 18 s'affiche si la 
disquette est protegee en ecriture, . .). 

Changer de nom 

Petite simplification dc programmation, le 
changement du nom et du numero de telephone 
n'est pas prevu. La methode est la suivante : 
effacer le fichier de message par 

DELETE FIC .REPOMDEUR 

puis modifier la ligne 26 et . . . 

RUN REPOMDEUR 



Au menu 

Quatrc options sont proposees a I'ecran de 
I'Apple // : 

1 Activer le serveur : votre ordinateur se met 
a I'ecoute de la ligne et attend patiemmcnt le 

fremicr appcl. On sort de ce mode par ESC ; 
\rt les messages : vous avez pu aussi les 
lire a distance ; 

3 Effacer les messages : c'est aussi une 
operation que vous pourriez faire S distance ; 

4 Quitter le proj^ramme. 

Le serveur en service 

Rien de passionnant n'apparait sur I'^cran de 
I'Apple lors du fonccionneraeni du serveur ; trois 
messages seulemeiit : 

Attente d'un appel 

JVppel rei^u, attent^e de connesclon 
Connexion, ok, serveur actif. 

C5td correspondant utilisateur, c'est plus complet ; 
apres deux pages dc presentation du rcpondcur le 
menu principal apparalt offrant : 

1 Laisser un message 

2 Fonctions de service 

3 Quitter ce rSpondeur 

L'option 1 invite sur une page ecran a laisser nom, 
prenorn ct nurniro de telephone puis 7 lignes de 
message, Un ecran de validation s'affiche ensuite 
pour inviter le correspondant (et toujoiirs client) k 
confirmcr, a corriger on a annulcr Ic message. 

L'option 2, qui donnc acccs aux fonctions de 
service, demande en premier lieu le mot de passe, 
Seules trois tentatives sont permises avant 
dcconncxion forc6c (meme si Ton rcvicnt au 
Eommaire aprSs chaque essai infructueux). 

Lc menu dcs fonctions de service est Ic suivant : 

1 Lire les messages 

2 Effaceir le fichier 

3 Changer le mot de passe 

L'option 1 affiche le dernier message le^u ; on 
accede aux diffcrcnts cnrcgistrements avec SUITE 
et RETOUR. 

L'option 2 evite les effacements involontaires de 
fichier en attendant les trois lettres QUI avant de 
supprimer les messages. 

Le changement de mot de passe par l'option 3 est 
fiabie : les caracteres frappcs au clavier sont 
remplaces a I'ecran par des par souci de 
discretion et le nouveau mot est demande deux 
fois pour etre a I'abri dcs fautcs de frappe. 

a 
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Programme 
REPOMDEUR' 

2 REH reloge sventuelleirtsnc 

3 IF PEEK (104) * 256 + PEEK (103) < i 7651 

r/fEN POKE 103,1: POKE 104,30: POKE 7580, 
0: PRTNT nffR$ (4 ) "-rf^pnmdmir" 
6 PRINT Cm$ {21) : HOME 

10 PHINT CRRS (4) "-pom. link. 2.1 

11 i XliIT,2:N$ - "".-Pfi^ = ""iTL$ = ""; FOR I 

= TO 6:M$(I) = "": NEXT :P0 = Q 

12 D$ - CHR$ f'i) :FI$ - "f ic. i epuHiLitiUi " 

22 ONERR GOTO 25 

23 PRltiT D?"open"FI$", 1255".- FEINT D$"read"FI$ 

",rO": INPUT LG,MO$,TE$,N0$ 
2^ GOTO 30 
25 ONEFR GOTO 29000 

2e MC$ - "ABODE" :TE$ = " (1) 12 34 SS 78". -NO^ - 

"M. Xxxxxxxx" 
27 PRINT D$"writc"FI$",rO": PRINT D? PRINT M0$ 

: PRINT TE$: PRINT N0$ 
30 PRINT D$"closc 

38 GOTO 9000 

to mm :pa ~ 0:es - o 

45 U$ = "Attente d'un appel (Esc = menu}": GOSU 
B 8000 

4S REM acce/ite de I'appel- — — 

SO £ APPEL, Ai 

il IF PEEK (i91b2] = Ibh THEN POKE 49168, 0: 

GOTO 9000 
52 ON NOT Ai GOTO 

55 uS = "Appel regu, atte/jte d© connsxlon" ; COS 

UB 8000 
SO f, CfrXR,A% 
70 ON NOT A-* GOTO 10010 

75 U$ = "Cnnnf^xlnn ni, <;f?ri/Bi?r ar.t-lf - nOKIIP. BO 
00 

9 7 REM Ip.rR pagf^ ■ 

Se & MTH, 1 

39 S, DEPLACE. 1,13 

100 i AFE-ZCHE, " / p / p / p / 

c / C" 

101 i AFFICHE, •■/ / f 6 ^ # 

102 Si AFFICHE, "e /• "t. i e ff^ i e /"i- /"v <^ « 

& e e " 

10 J S AFFICHB, "ee eeeeeeeeeee^e 

/ C e" 

104 i hFFXam, "6 6 666666666666" 

C_ c" 

105 5 AFFICHE, "6 f / 6 6 (_/ 6 6 6 6 6 6 6 

106 6 AFFTCHE, "6 /f /^t^e^eS 

/■■q_/ ^" 

10 7 S AFFICHE, "e f / p / f_/ e_/ 

f /" 

103 & AFFICHB, "6 d" : S AFFICHE, "6 6": S AFF 

ICHE, & AFFICHB. "f / 

105 £ PARAMT, 1,2, 0, 0, 0,0 : i AFFICHE,"- La re 

vue des Apple -"; 
IJO i HAUT,12: £ BAS,4: S DEPLACB, 9, 11 : i P 

ARAMT, 0, 2, 0, 0, 0, 
112 i AFFICHB, "_" + CHR$ (18) + CHR$ (8 6};: 
i DEPLACE, 12, 18: i FABAMT, 0, 3, 0, 0, 0, : 





6 


e 





at e 




1 7S 



J 





e 


e 







(D 



i AFFICHE, ■ 



+ (IB) + CHRf (92) 



113 

120 
199 

200 
210 

220 

230 
240 

250 

260 

270 



5 MTH,0 

FOR I = 1 TO 1000: NEXT 

2^me psge — 

£ VIDECRAN 

i CADRE, 1, 1, 40, 7, 2,0, 5, 0: & CADRE, 1,3,40 
, ?0, P, G, 5, Q 

6 DEPLACE, 4, 3 : i AFFICHE, "VOUS 'eCes til 

en au " + TES; 

t DEPLACE, 4,5 ; S MODE, 2 : S AFFICHE, N0$,- 
i DEPLACE. 4, 10: £ AFFICHE, "Vot re Interl 
ocuteui" est u/i",' 

£ DEPLACE. 4.12: & AFFICHE, "ordinateur A 

pple pr^et a enregistrer" ; 

& DEPLMCE. 4, 14 : s AFFICHE. "vos messages 

et confidences ■ . . "; 
f DEPLACE, 13, IS: & AFFICHE, "Acc&s au me 
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nu ; "/ : i INVERSE : i AS'FICHE, " iul 
te 

2fi(J & DEBLACS, 18, 19: * AFFICHE, "nenonceT : 

: S INVERSE : S AFFICHE, " r.nnnffxi nn 

* ACCEPTF,A% 

300 ON NOT Ai GOTO IBOOO; ON flt GOTO 50S,34Q, 

200, 340,340,500, 500, 10010, 340 
340 G05UB 4000: GOTO 2$0 

439 REM Sommalre 

SCO PRLNT D$"closs": S VIDECRAN: d VIDBECT, 
1,1.40, 6,4 

510 i DEPLACE, 9,4: & PARAMT, 1,7,4,0,0,0: & 

AFFICHB. " S6po/ideur t^l^maciQue",' 
520 GOSUB 6000 
550 S PARMfT, 0, 7, 0, 0, 0, 

SCO S DEPLACE, 0, 11 ; S AFFICISS, "Lslss^r vn m 

essaQB" ; 

570 S DEPLACE, 3, 14 ! f AFFICHB, "Fanct ions do 
service" ; 

530 S DEPLACE, S, 17 : S AFFICHE, "QolCter Ce r 
epondeur"; 

590 S DEPLACE, IS, 22 : S AFFICHE, "Votre choix 
+ ";: & INVERSE : i AFFICHE, " Env 

oi "r 

600 CR$ = "": £ ACCEPT, 29, 22, 0, "", l,CH^,Ei 

£10 ON NOT Ei GOTO lOOOOi ON £* GOTO 650,200, 

500, 620, 600, 609, 630, 10010 
620 GOSUB 5000: QOTO 600 

630 IF CH$ < "1" OR CH$ > "3" THEN GOSUB 7000 
.• GOTO 600 

650 IF CH$ < "J" OR CH$ > "3" THEN GOSUB 7000 

r GOTO 600 
660 ON VAL (CH$) GOTO 700, 3000, 9900 

700 REM Enreij riu m^.^.^sgf?-- — — 

710 4 YIDECRAIf: i DEPLACE, 3,2 : * INVERSE 

r 4 PARAMT, 0, 7, 4, 0, 0,0: i AFFICHE. " En 
i etfiiLi e/irenc tie votrs iiiessage ",■: S CADR 
E,2. 1, 36, 3, 0, 0,2, 
720 S DEPLACE, 1, 5 : S AFFICBE, "Votre nom : . 

+ & none: £ AFFICH 

E, " ",-: S ItiVERSE : 6 AFTICHE, " Suite 

730 & DEPLACE, 1 , e : S AFFICSS, " PrSnow .- . 

+ "/.- i LIGUE: S AFFICH 

E," " ',: i ISVERSE : & ASTICHE, " Suice 

740 S DEPLACE, 1, 7 : S AFFICIIE, "Telephone ; . 

+ "/ ; 4 lltIHE; & AFFICH 

E,' ";: * INVERSE ,- i ATEICHE," Suite 
tt , 

750 S CHARIOT: & NORMAL : 4 MODE, 2: S AFF 

XCSE, " Message "; 

760 FOR X - 11 TO 17 

77D f DEPLACE, 1,1: S AFFICH^, " 

+ a ilGNE: S AFFlcn 

E," ";: s IltVERSE : i AFFICHE." Suite 

780 NEXT 

730 S DEPLACE, 1, 20 : S AFFICHE, "Pour Valider 
votre messaqe s LICSfB: S AFFICSB. 

•' '•; : & INVERSE : i AFFICHE, " Envoi 
•';: £ DEPLACE, 13, 21: & AFFICHE. "Pour 1 
'annuler :";: & LJSNE: & AFFICHE." 
S INVERSE : i AFFICHE, " Soimnaire "; 

300 f DEPLACE, 13, 5: S AFFICIIE, N$/ 

301 S DEPLACE, 13, 6: S AFFICHE, PR$; 



302 4 DEPLACE, 13,7: i AFFICHE, TL^i 

an.i FOR r = 71 TO J7.- f deplace.i.i: & affic 

HE,M$<I - 11),-: NEXT 
805 ON PO GOTO 810,850, 880,910 
SIC PO ^ 1: S ACCEPT, 23, 5,0, "",16, N$,E% 
820 ON NOT Ei GOTO 10000: ON E% GOTO 840,830, 

700, 835, 830,500, 840, 1 002 
330 GOSUB 4000: GOTO 810 
835 GOSUB 5000: GOTO 810 

340 IF N$ = THE^I i AlERTE, "Ncm indlspensa 

bis. , . J .- GOTO 310 
845 IF Ei = 1 GOTO 990 

050 PO ^ 2: S ACCEPT, 13, 6,0, "",16, PR$,E% 

B€0 OiS NOT Ei GOTO ICOOO: CN Ei GOTO 990,810, 

700, 875, 870,500, 390, 10010 
970 GOSUB 4000; GOTO 850 
3 75 casus 5000: GOTO 350 

380 PO = 3: & ACCEPT, 13, 7,0,"", 16, TL?,Ei 

390 ON NOT Ei GOTO 10000; ON Ei GOTO 990, 850, 

700,905, 900,500, 910, 10010 
900 COSUB 4000: GOTO 880 
905 COSUB 5000: GOTO 880 
910 NN = 
915 V = NN -^ 11 

920 PO = 4 : i DEPLACE, 1,V: & ACCPPT, T ^V, fi, ""^ 

23,M$(NN),Ei 
930 ON NOT Ei GOTO lOOOO: ON E% GOTO 990,980. 

700, 935, 940,500, 950, lOOlO 

935 aosm 5000: goto 915 

940 GOSUB 4000: GOTO 915 

950 WM = AW + J.- OV WW = 7 GOTO 555.- GOTO 915 
980 m = mr - 1; ON NN <: > - l goto 915;tfN = 
0: GOTO 380 

989 REM ecrafi de validation 

990 S VIDECRAN: & DEPLACE, 1,3: S AFFICHE," 

V-jicl roers message tel qu'll sera".- f AT 
FICHB, "en registry :" 
1000 s DEPLACE, 4, 7: S AFFICHE," Nont ; " + 
N$; 

1002 & DEPLACE, 4,3: 4 AFFICHE, "Prenom ,- " + 

PR$; 

1004 i DEPLACE, 4, S: S AFFICHE, "T41sph ; " + 
TL$; 

1006 FOR I ^ TO S: i DEPLACE, 6, 11 + I; & A 

FFICHE,M?{I} ; : NEXT 
1010 S DEPLACE, 1,21 

1020 S AFFICHE, "Pout le valider. "; : 

i irCME; AFFICHE," ";: S INVERSE ; 
& AFFICHE." Envoi " : i NOmAL 

1030 & AFFICIIE, "Pour le aiodi£isjr : 

S LIGNE: S AFFICHE," ";: & INVERSE : 

5 AFFICHE," Correction ": S; NORMAL 

1040 i AFFICHE, "Pour 1 •&nniiler ; 

6 LICNE; S AFFICHE, " ";: S INVERSE : 
i AFFICHE, " Annalation "; S NORMAL 

1050 i ACCEPTF,Ai 

1060 ON NOT A% GOTO 10000: ON GOTO 1100,70 

0, 990,1070, 500, 500, 1065,10010, 700 
1065 i ALERTE, "Touche interdlte", ; GOTO 1050 
1070 GOSUB 5000: GOTO 1050 

1099 HEM enregistrewBnt 

1100 t VIDECRAN: S DEPLACE, 6, 12 : S, AFFICHE 

. "Enregistremsnt en cours"; 

1103 PRINT D$"Opcn"FI$", 1SS5" 
1105 PRINT D$''resd"FIS",rO 
1110 INPUT LG 
1120 LG ^ LG -4- 1 
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1130 PRINT O$"vrUs"flS",r0": print LG: PRINT 

M0$: PRINT TE$ : PRINT NOS 
1140 tKiNT D$"urite"FI$",r"LG 

1150 PRIb'T US: PRTNT PR$ : PSIWT TL$: FOR 1=0 
TO er PRINT M$(I) : NEXT 

IISO PRTNT n$"close 

1165 FOR I = TO 6:M$III = NEXT 

116S RF.M dernier ecran 

1170 i VIDECRAU: i DEFLhCEr 6, 12 : S fiTFICHE 

, "Vcit re massage est enregistre . . . " : i DEP 

LACE, 11,14 i S AFFZCHB, " . . . fnitss " ; : S 
INVERSE : i AFFICHE, " Somntalrs "; : £ A 

CCEPTF,A%: Otf At = OR A% - S GOTO 1001 

0:PO = 4: GOTO 500 

SOQO BEM fonctlons de servlac^^- 

301Q S VIDECRAN: f VIDRECT, 1, 1, 40, 6, 4 : i DE 

PLACE, 10, 'i: S PARM4T, 1,7,1,0,0,0: S JiFF 

ICHE, " Fonenlons de service"; : S PARAMT, 

0, 7, £), 0, 0, 

3012 t DEPLACE,32,12: & AFFICNZ, " + " ; : & I 
NVERBE t i AFFICHE, " Envoi "; 

3013 S DEPLACE, 15,15: s AFFICHE, "Pour renon 
eer ; ",- : i INVERSE : i tLFFICHE, " Somm 
Aire "; 

3014 MP$ ^ S SECPET, 9, 12, C, "Mot ds pass& : 

7,MP$,Ei 

3015 ON NOT £i GOTO ] 0000 : ON E% GOTO 3018,50 
0, 3000, 3016,3017.500,3018, lOOlC 

301 S GOSUB 5000; GOTO 3014 
3017 GOSUB 4000: GOTO 3014 
3013 IF MP$ = 140$ GOTO 30t& 
3020 £S = ES + 1 

3022 IF £.5 = J THEN & ALERTE, "Mot de passe e 

rron6",l: GOTO 3014 
30? 1 TF F.S = 2 THEti & MSRTE, "Errsui, encore 

un sssal",!: GOTO 3014 
3024 £ VIDECRAN: S DEPLACE, 10, 12 : S AFFXCH 

E, "Dssole, dsconnexion forcao. . , : GOTO 

IDDIO 

3028 ES " 0: & VlDLIiSJE.12,0: S VTDLZCKE,15, 

Or GOSUB SOOO 
3030 i DBFLACB, 3, 11 : S JUT ICHE, "Lire les me 

ssages";: i DEPLACE, S, 14 : & AFFICHE, "k: I' 
facer le flchicr",-; S DEPLACE , S , 1 7 : £ AF 
FICHE, "Chanqer le mot de passe"; 

3040 S DEPLACE, 13,22: S AFFICHE, "Votie shoi 
X : + ; 4 INVERSE : S AFFICHE, " En 
vol " ; 

3048 CH$ ' "" 

3050 CI1$ - £ ACCSl>T,2S,22,0,"",l,Ca$,Ei 

3060 ON NOT E% GOTO IVQUO: ON £4 WTO 3070,30 
00, 3065,3066, 3065,500,3070,10010 

3065 aOSUB 4000: GOTO 30^0 

3066 COSUB 5000: COTO 3050 

3070 IF CH$ < "1" OR CE$ > "3" THEN UOSUB 700 

0: GOTO 304$ 
3075 ON VAL (Cfl$) GOTO 3100, 3300, 3bQ0 

3100 REM lecture fie ■ 

3110 PRINT D$''open"FI$", 1255 

3120 PlilHT D$"rcad"FI$",t:0": INPUT LG 

3130 IF LG = THEN PRINT D$"close" : i ALEBT 

E, "liucvv message refu", 1: GOTO 3050 
3135 NO = LG 

3140 S VIDECRAN: & PARAMT, 0. 2 , , . 0, : I. AF 

FICHE," " + CHK? (ISi + CER$ {64 + 39) i 
3142 S DEPLACE, 2, 3: S MODE, 1 : i AFFICHE, "Co 

nsultation des messages enreglnLi^a" ; £ M 



ODE, 

3144 i PARAMT.0,2,0,6,0,0: S HTM, 1 : S AFFIC 

ME," " * CHR5 (IB) + CHR£ (64 + 39)/! S 

MTff, -■ Jt DEPLACE, 9,5: S PARAMT, 0, 6,0, 
0,0,0: i AFFICHE, "P^ eteLieuL : ",' 
.3 MS I. LI WE: i AFFICHE." S INVERSE ; 

S AFFICHE," i5et(?ujr ": * DEPLACE, 11, ^ 
£ PARAMT. Q. 6. 0. 0, 0,0: i AFFICHE, "Svlv 
*nt S LIGNS; S AFFICHE," ",- ; S Iff 

VERSE ; i AFFICHE. " Sul te " 
3148 J DEPLACE, 15, 7 : S PAJiAMT, 0, 6, 0, 0, 0,0; & 
AFFICHE. "Fin :";: i LIGNS: S AFFICHE, 
" ",- : & INVERSE ; S AFFICHE. " Sommslra 
It 

3150 S PASAHT, 0, 2, 0, 0, 0,0; & AFFICHE, "_ " -^ 

CRR$ (IS) + CRR$ (64 + 39): S. AFFICHE," 
" 4- CHR$ (18) -^ CHR$ 164 + 3S} : 
3152 & DEPLACE, 1, 12 : i PARAm: 0, 4, 0, 0, 0,0: & 
AFFICHE."-" + CHR$ (18) + C}{R$ (64 + 
33):: f DEPLACE, 1 , 1 6 : i PARAMT, 0, 4 , 0, 0, 
0,0; S, AFFICHE. " + CHR$ (Ifi) + CHR$ 
(64 + 33) 

3154 i DEPLACE, 1,24: f PARAMT, . 2 , 0, . 0, : S 
AFFICHE," " + CHR$ (18) + CHR$ (64 + 
39); 

31/0 PRINT D$"reaa"FI$",r"NO 
3180 FOR J •= I TO 3: INPUT IS (I): NEXT 
3130 FOR I = TO S: INPUT MS$<I) ; NEXT 
3192 S DEPLACE, 2. 10 : S AFFICHE," Message n" 

■• + STR$ (NO); 
3194 & DEPLACE. 2. 13: S AFFICHE, " + Z${ 

1) + " " + CHR$ (24) 
2196 i DEPLACE. 2. S AFFICHE, " -h 1$ ( 

2} i- " " -t cm$ (24) 
31B8 S DEPLACE, 2, 15: & AFFICHE, "^ > " + I?( 

3) + " " i atR$ (24) 
3200 FOR 1 = 1 TO 7: 6 DEPLACE, 2,16 + I: i A 

FFICHB, " + m$(I - 1) + " " + CMR$ 

(24);: NEXT 
3220 S ACCBPTF.Ai ; ON NOT Ai GOTO lOOCO 
3230 ON A% GOTO 3240, 3250, 3240, 32J5, 3240, 500, 3 

260,10010,3240 
3235 casus 5000: GOTO 3220 
32-^0 GOSUB 400O; GOTO 3220 
3250 NO ^ NO - 1 

3252 CN NO > GOTO 3170: NO = 1: £ ALF.RTE^'T.' 

est le pzemler message", i: goto 3220 
33€0 NO = NO * 1 

3262 ON NO < = LG GOTO 3nO:NO = LG: i AiERr 
E,"C'sst l0 d^rnl&r",!: GOTO 3220 

323^ HUM facer le rictilsr 

3300 £ VIDECRAIS: & VIDRFCT, 1 , 1 , 40. 6, 4 : £ DE 
PLACE, 10, 4: i PARmT.l.7,4,0,0,0: S AFF 
ICHE." Effacement ficrhier ",-: f PARAMT, 

, r, u, 0, 0. 

3310 £ DEPLACE, 5, 10 : i AFFICHE, "Get ti^ nnmms 

nde supprlme i 'ensemble": * deplace, 5, 11 

: t AFFICHE, "de* jnessagps ^tttckA^ , " 
3320 S DEPLACE, 5, 13: & AFFICHE. "On /le ytiut 

annuler un effacemenf - , ," 
3325 R? = ""; S DEPLACE, 5, 22: & AFFICHE, "Puu 

r effaces : .- (■ INVERSE : & AFFICHE 

, " QUI + Envoi "; 

3327 £ DEPLACE, 5, 23 : S AFFICHE. "Pour renonc 
er : "; ; i INVERSE : & AFFICHE, " Soium 

3330 R$ = ""; * ACCEPT, 10, 16, 0, "Ok pour tout e 
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f facer ? ",3,R$,E% 
3340 ON NOT E% GOTO 10000: ON E% GOTO 3380,33 

SO, 3300, 3360, 500, 500, 3350, 1 001 
3350 GOSUB 4000: GOTO 3330 
3360 COSUB 5000: COTO 3330 

3380 IF R$ < > "QUI" THEN R$ = "": & ALERTE, 

"Rdponae Incorrecte", : COTO 3330 
3390 PRItIT D$"open"FI$'', 1255" 

3400 PRINT D$"iitit0"FI$", rO"; PRINT 0: PRINT M 

0$; PRINT TE$: PRINT N0$ 
3410 PRINT D$"slosc" 

3420 i VIDECRAN: f PEPLACE, 6, 12 : S AFFICHE 

, "Xc fichier a 4te reinltialis6 . . . » s DE 
PLACE,ll,i4: S AFFICHE,". . .faltes ";: i 

INVERSS ; i AFFICCIE, " SOnsndirc "i : S 
ACCEPTF,A%: ON A% ^ OR Ai ^ 8 GOTO 100 
10: GOTO 500 

349^ REM Changer le mot de passe 

3500 t VIDECRAtt: £ VIDPECT, 1, 1, 40, S, 4 : £ DE 
PMACK, 14, 4 : S PAKAMT, 1,7,4,0,0,0: J AET 
ICBS, "Mot pa^se",-: f PJLRAMT, 0, 7, 0, 0, 
,0 

t DEPUtCB,2,23: £ AFPICOE, "Poar renonc 

er, falces : ";; s INVERSE : & AFFICHE 

, " Soirtwairi? 

4 DEPLACE, 1, 11: i ASYICHE, "Taper le DO 
uvpai! mat de puisne + J TNVEPSE : i 
AFFICHE, " Envoi ",- 

i DEPLACE, 1, 16: £ ATFICHE, "Taper le A 
nou'/tau pour contr^ole"/ 

5 CADRE. 25, 12. 35,14.2,0.5,0 
i CADRE, 25, 17. 35, 19,2,0, 5, 

Rl$ = "": S SECltET,27, 13. 0. >"•. 7,Rl$.Ei 
ON NOT E% GOTO 10000 

ONE* GOTO 3600,3590, 3500,3595,3590,500,3 
€00,10010 

GOSUB 4000: GOTO 3560 
GOSUB 5000: GOTO 3560 

IF LEN (Rl$} < 4 THEN S ALERTE, "MinlmU 
iR 4 caractSres", 1 : GOTO 3550 
R2$ = "": f SECRET, 27, 18,0, ■"',?, R2$,E% 
ON NOT Ei GOTO 10000 

ON Ei GOTO 3680,3640, 3500,3645,3640,500,3 
SSO. 10010 

GOSOB 4000: GOTO 3610 
COSUB 5000: COTO 3510 

IF Rl^ < > R2$ THEN i ALBRTB, "Les deux 
mots do p^sso diffdrcnt",l: COTO 3560 
m$ = HJ5 
PRINT D$''open"FI$«, 1355" 
tHlNT D$"vrite"FI$",rU": PRINT LG: PRINT 
M0$: PRINT TE^ : PRINT NOS 

PRim ofciose" 

£ VXDECRXH; t DEPLACE, 6, 12 : £ AFFICHE 

, "he mot de passe a 6te cflang^. . . ": i D 

EPLACE, 13, 24 : £ AFPICHS, " . . . faltes "t; 

S INVERSE : s, AFFICHE, " Soimalre "/ : i 

ACCEPTF,Ai: ON Ai = OR A* = S GOTO 10 
010: GOTO 500 
3S99 REM sous-prog- 

4000 i ALERTE, "Toucne imccive lcl",Vf mwm 
5000 i ALERj-g, "tuide inaisponibie", Q ! return 

eOOO £ CADRE, 4, 10, £,12,2,0,5, 0: (AFFICHE,"! 
"; : S CADRE, 4, 13, 6, 15, 1, Q, 5,0: S AFFICH 
E."2", r t CADRE, 4.11.$. IB. 2. 0.5.0; £ APF 



3510 



3520 



3530 

3540 
3550 
3560 
3570 
3580 

3590 
3595 
3600 

3610 
3630 
3630 

3640 
3S4S 
3680 

3690 
3706 
3710 

3720 
3730 



7000 
8000 

9000 

9010 
9020 

3030 
9040 
9050 
9055 

9060 



9070 
90SO 
9100 
9110 
9120 

9130 



9140 

9150 
9160 

9170 

9172 
9175 
91S0 
9190 

9200 

9205 
3210 
9250 
9400 

9410 

9420 
9430 

9440 
9450 

9500 
9899 

9900 

9310 
1 0000 



10010 
13399 
30000 



ICHE, '•J"/ : RETURN 

i ALERTE, "Choi X impossible", 1 : RETURN 
VTA3 10: PRINT U$.-: CALL - 868: PRINT 
EETUSN 

REM — " menu g&n6rsl ■ — 

FOR I 1 TO 23: PRINT : NEXT 



PRINT ; PRINT "Voulez-vous 



PR 



actlver le sorveur 
llrs les messages 
effacer les messat^es 
quitter C9 programme" 



PRINT 



PRINT " Votce chalx ", 

ON R? < "1" OR R$ > "4" 



.- G 
GOT 



PRINT "De 1 a 



VTAB 23 
PRINT ! 
INT 

PRINT " 
PRINT " 
PRINT " 
PRINT " 
.' PR INT 
VTAB 23 
ET R$: PRINT 
a 9060 

ON VAL {R$) COTO SO, 9100, 9400, 9080 
HOME : END 
PRINT ; PRINT 

PRINT "open "fi? ", 1255 

PRINT D$"reai:l"FI$". rO" : INPUT T.G: PRINT n 

IF LG = THEN PRINT D$"c}n<im": PRINT "A 
ucun message recti": PRINT : PRINT : goto 9 
020 

PRINT "Vous a vex "LG" message"/; IF LG > 
1 THEN PRINT "s": 
PRINT : PRINT 

INPUT "N" du message i 2 Ire (0 pour flnlr 
): ";N1$:N1 - VAL (Nl$! 
IF Nl < OR Nl > LG THEN 
"LG-. . .": GOTO 3150 
ON NOT Nl GOTO 9250 
PRINT .- PRINT "Messege n" 
PRINT D$"read"FI$", r"Nl 
FOR 1=1 TO 3: INPUT A?: 
NEXT 

FOR I - 1 TO 7: INPUT A$ : 
EXT 

PRINT D$ 
GOTO 9150 

PRINT D$"close" : GOTO 9020 

PRINT : PRINT "Ok pour &ttacer TOUS les m 
essages 7" 

INPUT "RSpandre OUI pour ettacer 
M Nl$ < > "OUI" GOTO 9500 

PRINT D9"Open"FI9",1255 

PRINT D$''wrltc-FI$", rO" : PRINT 
0$: PRINT TE?: PRINT NOf 

PRINT D$" close" 

PRINT ; PRINT "Messages eftacSs" 
20 

PRINT ! PRINT "Ordre annuls": GOTO 9020 

REM — ^- — fin S d4connexlon ^- — ^- 

£ VIDECRAN: i DEPLACE, 10, 12 : S AFFICH 
B, "An rovt>lr. . . 

PRINT U?"elose" : S DECNX: GOTO 40 
£ VIDECRMt: £ DEPLACS, 3. 12 : i FLASH 

: i AFFICHE, "Minicsl inacclf depuls 2 m 

InuCes, ",• • £ DEPLACE, 9, 14 : S, AFFICHE, "D 

^connexion torches. "; 
PRINT D$"close": £ DECNX: GOTO 40 

erreur 

S VIDEOiAlI: f AFFICHE, "D&sol^, probl^ 
me ssrveur": S DECNX: PRINT D?"Close": PR 
INT "erreur " PEEK (222) : END 



"Nl' 



PRINT 



PRINT 



PRINT 
-> "A$: 
''A$ 



N 



;ni^: u 



PRINT M 
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Pom's n° 34 



Cftristian ^PiarcC 



Les sources Procode, pour Apple 
//, presentes ici doivent permettre 
^ chacun d'aineliorer, d'adaptcr a 
ses propres besoms les nouvelles 
instructions serveur. 

lis snnt presents en format texie 
sur la disquettc d'accompa- 
gnement de ce numero et sont 
rdcup^rables par lout autre 
assetnbleur. 



Source PL.0 
Assetnbleur ProCODE 



dsK pom. llnK ' 1 
put pl.l 

pl.Z 

pl-i 
pl.ii 

pi . dA^d 



put 
put 
put 
put 

puL 



ill 



it a 








bne 


$2 














C31ld 




bjil 


<1 






beq 


t rouvB 




Ida 










*100 






fi3F5 






Inc 


pt rcjnd 


J ctitrctie ordre 


Ida 


£<dHl9Ut 






1 riu 


rcind 


J Biiivant dans 










Idfl 




; table 


Ida 


£>debut 






tjeq 






sta 


S3F7 






b:iii 






Ida 


CO 






Inc 


no end 


de la conuunde 


sta 


dcuxc 






jniD 


SI 




Ida 


SFBB3 












cmp 


f.6 




troiive 


Ida 




.-on A txouv^ 


belt 


«aic 






ata 


sautind-t-1 


jlnit ialise 


Ida 


SFBCO 






Ida 


£>adxcom 


jle saut 


bcifc 


*o)c 






Ata 


sautind-1^2 


;v«rs lA 


dec 


deuxc 






Idy 


HQcynd 


; routine concetfh^^ 


rts 






SI 


tieq 
Inc 


aautind 
sdutind+1 




IdV 


to 


;init lonqDeajT crad 




bne 


S2 




sty 


CIBd 






Inc 


aautind+2 




stt 


naoid 




«£ 


i£lC 


saui-ind-t jL 








; charche 




bne 






ixia 


end 






Inc 






Idy 


end 






dey 






cpy 


£12 








SI 




bne 


Sll 












jmp 


snerr 






imp 


(adtcop) 




ora 




f trans focm& eri 










sta 


crad^y 






jnip 


snerr 


f^^nta^K error 


Isr 




lea caracL 










Ma 


f incmd 




















cap 


£',' 




Source PL.2 




bne 


SQ 







Source PL.1 
Assembleur ProCODE 

1 . 1 



3 . • 

i 

S CjKkcom — fCBBE 

7 ohfget - $&1 

9 chF^*t - 

^ - .^FD^D 

10 4»ti - $1* 

11 SErcT - iTiLLi 

13 facmo - 

1* forpnt - ?ftS 

15 rnoRvi - trmtn 

Ifi fr^tftp - SfiF 

]■> jethyti^ - SrSPS 

IB get-qpa - griS? 

19 kbd - ?Cftnil 

20 raLaprr - $DT17fi 
SI ratnTitr - ^E4EJ 

II ptr - ?e 

1 3 ptrjpt - 

J5 itatu* - $1A 

26 varnam - S81 

27 varpnt - i»i 
2B 

29 oro SSOl 
30 

31 Idi S3F6 .uecteur i d4ji 

32 emit £<dE!tlUt :lnstal.Xi ? 

33 bn« SO 

14 ltl4 

CAP L>d&but. 

S£ beq a): 

37 SO Idy £2 ; sauve ancLeA 

38 SI Ida $3F5.y ;vei:teuz: 



Quel serait Tinteret 

d'un serveur si 
rordlnateur ne sait 
pas que le telephone 
Sonne ? Rendez-vous 
page 75 ou, pour les 
brieoleui^, dans le 
numero 32. 



f iocjud Idy £$PF : compare A. chacjne 

sty ptrcmd :des comrnandes 

inc ptrcmd 

Idy ptrcnd 

Ida commander y 

SI cmp cmd ; compare d'abord 

bne 52 ;la longueur 

Idx ED jpuls f^cm 

SlOO inx rlui-nieM 

inc ptrcmd 

Idy ptrcmd 

Ida cqmnande^y 

citp cittd,j( 



• accept 



accept 


laa 


to 


n'est pa? 




sta 


dsecret 


; secret 


accept 1 


Ida 


[?FF 






sta 


drap 






Jsr 


getbytc 


.'poalti&n. huriz 




stx 


IhDr 






Jsr 


gettjytc 


.■poaltion vertl 




stx 


Iver 






cpx 


LZi 






IfCC 


Sa 






jmp 


tioraliio 




fa 


jsr 


get byte 


imis ible ha lit. 




cpx 


t2 






bcc 


SaO 






jmp 


horjllia 




laO 


stx 


dblh. 






Idy 


Iver 


; pesitigniia 




Idx 


Ihei 


;la curseuT 




Ji-: 


position 






isr 


curseuri 


; invisible 




J*r 


chKcoui 






Ida 


to 






ata 


$5.2 






Jsf 


f riiiflvl 


; lvalue chain? 




jsr 


chhstr 


,'c'Bit 1. chaJ-ne 7 




Ida 


f accaa 






sta 


(orput 


;sLii chains 




Ida. 


fscnO-H 


;tBiBpsjraire 




Stl 


forpnt+l 






Idy 


to 






Ida 


(farpnt) 


y 




tBl£ 








clc 








adc 


Ihoc 






sta 


IhOE 






Idy 


£2 




SO 


Ida 


(foxpnt] 






dey 




;de la cMlne 
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cpy 
bnft 

dut 
hmi 

i'r 
i-Tiy 
Imp 
jsr 
• t-i 

hp(i 
rp» 

Ida 
r_lti 
add 
riivp 
hnr- 
Jl»P 
imp 



SI 



$110 



111 

lis 
lis 
in 
iia 

119 
120 
121 
122 
1.23 
124 
125 
12S 
127 
129 
13(S 
131 
132 
133 
134 
13 S 
136 
131 

13a 

139 
141 
142 
143 
144 
145 



S23 
trap 



S2 

SlCfO 



£0 
CO 

*f Ina f f 
(ptT) ,y 
•Tivnlcar 

SI 

gftt.hytc 
l5»tt 

r.ii 

sD 

f.Jl 

horallm 
Ihor 

Igatt 
141 

SlQOXl 

hnralijn 



debsaii lila £.0 
3ta al 



^ta depas&t 
inc al 



jsr Initcpt 



inc 
trne 
ins 
bne 
inc 
bne 
Imp 
lar 
llU 
bBi] 
Ida 
and 
5ta 
isr 
Ida 
bea 
jst 
Ida 
cnc 
ben 
cmp 
be 9 
Imp 
cmp 
bcc 
Ida 
aup 
tone 
J up 
inc 
Idy 
Idi 
cmp 
bna 
Ida 
cmp 
hne 
li3 
3ta 
hit 
bpi 
Ida 
Isr 
Imp 
Ida 
sta 
1»r 
Idv 
Ida 
beo 

lUE 

Inv 
bne 
1«r 
jmp 
dfb 
dfb 
Aac 
dfb 



$1 

tenipc»+l 
SI 

tempQ+£ 
Si 

Vpsdepas 
i)etca[ 
Ig 
id 

$iDO 

cartec^ 

initcpt 

al 

Sll 

ertal 

carrecu 

£13 

{IID 

£111 

S2 

tchfonc 

detol 
nbcar 
lijatt 
S20 
tpop 
nbcar 
nbcar 
carrecu 
' 

£' . ' 
£' : ' 

422 
£■ . ■ 

dsecrat 

S23 

t'"' 

envoi 

detjl 

£1 

al 

curseuii 
£0 

SlljO-V 
f2 

envoi 



; 1 'affl 



; attend lg% 



car.tr Die si le» 
pt^ tiennent 
dans i'^cran 



i chains oar d^faut 
; init ccimpteurs 

;il-l; efface It; O 
:lnlt d*lal 

line les conpt. 



;att«n<i un caract- 



corapteurs i 
si ntcessaire, 
efface ligne 



jretout chariot 1 
J QuLj ~ 4 envoi 
;touche fonctlon ? 

;oui 

;carac controle ? 
fcontrole Longueur 



; trans forme 
fen des . 



^stoclte car recu 
; |9i SEccet, 
; * en tchoi 

,-en S201..2FF 

;C3rac bora zone 



;afftche messaqe 
:[ln de zone 



il 

curaeurv 
debl 

l,SlF,S4iJ,MI,S20 
I12,£S4,;1F,$4I],;4I 
•Fin de zone' 
ICA.D 



i4e 


tpsdec>a9 


Ida 


depasst 


: I minute 


147 




beq 


SO 


rlnactlf 


148 




Irap 




;2 folB : finl 


150 


SO 


Ida 


LI 


ilhie minute 


191 




ata 


al 




1S2 




ata 




;dcnx lmln«nttt 


1S3 




3»r 


curseuri 









eo 














Ida 
























hp! 


*l 






j cr 


■QElVoi 






1 da 
















3ta 


al 








fl 






rta 










curBeurv 






d[b 










tnitcptl 






dtb 






J sup 


ileb£ 










i lo ntj ■chains 










loch 


d5 


I 




dfts 




iQalt 


di 


1 


jlonqueuf attendiie 




dfb 






noiDch 


di 


z 


jnora chalne retoui 










nbcar 


is 


1 






dfb 








ds 


3 














ds 


I 












al 


d9 


\ 












carried 


As 


1 






Jar 


'nltcpt 




dblh 


ds 


1^ 






Ida 


C ^ f 3r ECU 
















£l3 




position 


isT 


c\2 r s 6U ri 


k poaitionfie 




tone 


SOO 






Stjl 


51 






Ida 


£1 






stY 


^2 
















envoi 1 F 






cmp 


£7 


est-co correct ? 




Ida 


52 






&eq 


SI 
















£5 


aftfiUlation 2 




adc 


£$40 






a^ 


S2 






^si; 


envoi 










ncn^ fin d " accept 




Ida 


$1 




SI 


Ida 




correction, 1 car 




clc 










rieh 


i effaces ? 




adc 


L$tO 






Ida 


Ihor 


recule d'un cran 




Jsr 


anvoi 














Ida 


dblh 


; double nauteur ? 




adc 


nbcar 






bG^ 


id 














jsr 


envoi IB- 






^eX 








Ida 


£;4D 






Idv 


iver 




5D 


jrep 


envoi 






]*r 


posit I-Oft 




^1 


da 


1 






Ida 


E' , * 


affiche uei point 


S5 


da 


1 






jar 






jionrep 


Ida 


to 


jMlTiit, rfipo'iid pa 5 




J »i 


pniition 






sta 


carrecu 








fibcar 


;car - car -1 














dfrtol 




f inacc 


_ 


• 




SI 


Idit 


Ihor 


;annulatlan. 


Sauite 


Ida 


nbcar 


jchetche frspace 






IveT 


jcuTseui cn dfitiut 




]sr 


get a pa 


:pour la cnaine 




J^* 


|j6 flit ion 


,'de zone 




idx 


£.1 


:chaiiie en 




J 


cTjrfi*uri 






Idy 


£2 






Idx 




;a£flch Igl polfitB 




Jar 


TBOVStr 


;ia deplace 












Ida 


nbcar 






Ida 








Idy 


to 






jar 








sta 


;varpnt> ,y 














iny 








bpl 








Ida 


Iretop 






Idit 




ip&sitltinn curseur 




sta 


Ivarpnt) 






idy 


lV«T 


;«n d&but de zone 




iny 










pi sit 1-013 






Ida 
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e num^ro de Pom's que vous avez entre les mains 
contient un puissant ensemble de routines en langage 
machine, formant une lihrairie ri'instnictions 
tcl^maliques qui s'ajouient k celles du Basic Microsoft 
(2,0 et plus). Afin de donner un exemple de 
programmation sur la base de ces nouveUes 
fonciJoiis, nous avons pens^ qu'il serail 
judicieux d'&;rire un scrveur/repondeur 
telematique intcrrogeable k dklancc. II nc faut cepcndani pas 
s'y Lromper : nialgr^ sonL uaraci6re 'd^iiionsLraLir, ce 
serveur est paifailcmcnt fiable, pratique, et son ergonomie 
pourrait faire rougir de honte ies ' program meurs' de la 
plupart des serveurs Videotex dlts serveurs-kiosque. 

Si vous ne programmcz pas, ci commc a I'accouiumdc, 
ccttc application est disponible 'prSte a lancer' sur la 
disquetle d'accompagnement Mac 34 de Pom's. 

Un repondeur telematique 
pour quoi faire ? 

II est inutile de presenter ici le tradilionnel repondeur 
telephonique, mateiiei pas ubs pratique (il taut enregistrer 
un message tout en ayant I'air dccontracte, 
dynamico-branch^ — c'est k la mode — et intelligent - ce qui, 
en ce qui nous conceme. requien beaucoup d'effons ainsi 



Apropos du 
programme "Envoi 
Videotex" (Pom's 33) 

Le 'mini-protocole' 
utilise par ce pro- 
gramme — qui envoie les 
images cr^^es par "Paint 
|"» Minitel" - n'est pas 
reconnu par tous les 
Minitel (demands 
d.'id.entification). Dans 
certains cas, I'image 
Videotex n'est done pas 
dmlse. 

Afin de remedier h cela, 
nous avons plac^ sur la 
disquette d'accompa- 
gnement de ce num6ro 
une version plus 
universelle. 



Les disquettes 
d'accompagnement 
Macintosh maintenant 
en SOOKo 

La taille des systcmes 
d'exploitation, des uHli- 
taires, polices de 
caracttres... n'allant pas 
en diminuant, il devient 
trfes difficile de tout logcr 
sur une disquette simple 
face 40CIKo. 

Nous passons done aux 
inevitables SOOKo ce qui 
nous pormct^ pour ce 
numcro 34 de Pom's, 
d'a jouter une 'demo' de 
"dBase Mac" en plus des 
programmes et i^chiers 
publics dans ces pages. 



Jean-Luc (Bazanegue 

qu'une aaention soutenue), et particuliferement irritant pour 
la plupart des correspondanls, qui g^n^ralement raccrochcnt 
rageusement avant d'appcler le maudil concurrent. 

Cela ne va pas toujours jusqu'a la peric d'un client mais 
peui VQU5 faire peidre une information, un rendez-vous, ou 
tout simplement un chaleureux et arnical 'Comment 
vas-tu ?'. Nous passerons rapidement sur le 'yau de poil...* 
pour en venir h notre serveur/repondcur telematique. 

La generalisation du Minitel, cn paniculicr avec I'annuaire 
telephonique et les grandcs socictcs de vente par 
correspOEidance, f^t que la tonaUte aiguS de la porteuse, qui 
est devenue parfaitement familifere, est en passe de 
provoqiier ie geste rcflcxo qui consistc en ia mise sous 
tension du Minitel suivi d'une pression sur la touche 
'Connexion/Fin' ; c'est ce que feronl la plupart de vos 
coirespondants, qui auront alors tout teur temps pour ccrirc 
- voire meme peaufitier - un message k votre attention, 
Repomdeur, puisque tel est le nom du serveur que Pom's 
vous propose, vous donnera done, outre le style 
dynamico- branch*; cit6 plus haut et que vous ne recherchez 
pas forc6ment, la possibility de stocker un maximum 
d'informations avec routil de communication qu'est voue 
Macintosh, 

De plus, votre serveur-rSpondeur t^Mmaiiq ue Repomdeur est 
intcrrogeable h. distance dcpuis n'importe quel Minitel 
raccorde a une ligne telephonique.. II vous sera done 
possible a tous moments d'appeler voire Maciniosh pom- 
lire les messages cnrcgistrds et prendre immcdiaicment les 
mesures qui s'imposent en fonction des hesoins ou 
propositions de vos amis ei^ou clieats. 



Le materiel 

L'ntilisation de Ripomdew requiert la pr^senc^ du materiel 
suivani : 

■ unc ligne l61ephonique ; 

■ un Macintosh 51 2Ko, Plus, ou TI ; 

• un Minitel bi-standard dii 'reiournable' (ils le sont 
pratiquemcnt tous) ; 

• un cable de liaison Macintosh ■* Minitel tel que celui 
utilisiS par les programmes destines ^ I'Liilisation du 
Minitel et pufalids depuis !e numcro 27 (si par hasard cc 
cable vous faisail ddfaut, les Editions MEV peuveni 
vuus le fuumir) ; 
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• un detecteur d'appel tel^phoniqtie que vous pourrez 
reuli^Kr h I'mdc liu iicliciiiu public daiis Ic iiuiiieru 32 dc 
Pom's. Cet appareii, dont le double connecteur 
s'intercale entre la souris et le Maciniosti, pcui ausst 
vous etre fourai par les Editions MEV. Si vous dccidcz 
de construire vous-metne I'objet, nous vous 
recommandons de faiie tres attention a la qualite et au 
branchements du rc3ajs ; une isolation galvanique 
parfailc esl indispensable. 
Le synnptiqiie joint a cet article indiqiie quelles sont les 
liaisons k effectuer enire les diffdrenis appareils. On peut 
noter que la presence de I'appareil tdl6phonique n'est pas 
indispensable. 

Dcmarragc du scrvcur 



Fichier 

Demairer avec un fichier eHistanl. 



Demarrer auec un nauuesu fichier. 
Lire les messages enregistres... 



Quitter 



L'aiticie "Demarrer avec un fichier exisiant..." permet 
I'utilisation d'un fichier qui contient dcja le mot dc passe, 
voire, nom - on raison sociale - et votre num^ro de 
i6I6phone. Le moi de passe vous sera indispensable si vous 
comptcz lire vos messages a distance depuis un autre 
Miniie.1, alors que les deux demiers 'elements' seront 
employes pour I'affichage sur I'ecran du Minitel de votre 
corrcspondant d'un Icxtc que nous pourrions qualifi6 'd'ecran 
de rex^onnaissance'. Par exemple, pour les Editions MEV, 
nous afflctions : 

Vous 6tes blen au (1) 39 51 21 -53 
- Editions MEV - 

c.e f[iii rassiire tout de suite votre correspondant sur le bon 
aboutissemeni de son appel. 

Cet article du menu "Fichier" conduit naliirellement a 
I'affithage de la fenStre de sdleciion de fichiers habituelle. 
Noie : au luncerrieril du pro^ra/mne, la fenelre de aeltvlion 
s'affiChe, pertnellant ainsi un demarrage direct du serveur. Si 
vous appeliez Repomdeur pour ejfectuer me autre operation 
{demarrage avec un nouveau fichier, lecture des 
messages...), faitcs simplemcnt un 'die' sur le bouton 
'Annuler'. 



Fichier 



Derrtarrer auec un fich ier oiistant... I 
Lire les messages enregistres... 
Quitter 





fl> e 
















e <D 






e 


e 






L'ouverturc d'un nouveau hchier sera parfois n&essaire, ne 
sei^i-ce que lors de la premiere uLilisaiiou du serveur. Dans 
ce but, Repomdeur af fiche une feneire de saisie qui vous 
permettra i'inilialisation de vos nom ou raison sociale et 
numcro dc l616phonc, ainsi que du mot de passe qui 
autorisera les 'fonctions de service' ^ distance (lecture des 
messages, remise S z6ro du fichier et changement du mot de 
passe). 



Mot de passe : de 4 a 7 caracteres 
(fl -> Z et -> 9). 

Mom : jusqu'a 16 caracteres 
Qffichables par tous les Minitel. 

Teleptione : Jusqu'a 1 G caracteres 
afficliablcs par tou$ los Minitel. 



Mot de pas$e 



1DZB007 



Nam 
Tel. 



Editions MEU - 



(1) 39 51 24 43 



Rnnuler 



DC 



OK 
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Le passage d'une zone de saisie a I'autre se fait 
classiquement par un 'clic', un 'retour-chariot' ou une 
action siir la toiiche de tabulation. Certains contioles soni 
efrcttues par le progiarame afin d'eviter les plus grosses 
erreurs de saisie ; ainsi, pour empecher I'apparition dans le 
mot de passe de caracieres difficiles - voire meme 
impossibles - & saisir sur Ic clavier du Minitel, on limite 
les possibililis a A Z et * 9, Au cas ou un ou 
plusieurs caractferes se trouveraient tiors de ces gammes, 
I'erreur est signal^ par un 'bip' suivi de I'affichagc cn 
inverse du texte indiquant les possibilltes. Le meme 
principe est utilise pour la saisie des nom ei numero de 
telephone donl Ja longueur est verifiee afin que I'affichagc 
dcs chaincs de caracieres ne provoque pas de d^sordre. sur 
I'ecran du Miniiel servi. 



Mot de passe ; de 4a 7 caracteres 
(fl -> Z et -> 9h 



Nam : jusqu'a 16 caracteres 
afflchables par tous les Minitel. 

Telephone : Jusqu'a 16 caracteres 
afflchables par tou$ les Miniiel. 



Hot de passe 



azerty 



Kom - Editions MEU - 
Tel. 



(1) 39 51 24 43 



Rnnuler 



QK 



® 



Le boulOLi 'OK' confintie vos clioi^ el, si le conienu des 
zones de saisie est valide (les verifications sont Taiies lors 
de la sollicilation de cc boulon). une secondc leneire 
apparait, autorisaril le bapienie du fichier serveur. Une fois 
le fichier nommS, et si vous n'utilisez pas le bouion 
"Annuler". le serveur demaire avec Icnouveau fichier. 



Lecture des messages 



Fichier 



Demarrer euec un fichier eHistant. 
Demarrer euec un nouueau fichier. 



Lire les messages enregistres. 



Quitter 



Nous ne parlerons ici que dc la lecture dcs messages sur le 
Macintosh ; la consultation du fichier k distance sera 
evoquee un peu plus loin. 



Message 7/7 



ROUGEROH 
Jacques 
39.51 .24.43 



J ' a 1 I u qu ■ i I ex i s ta i 1 un 
In i croprocesseur pour 
Hpple //c. Pouyez-uous 
ui' indiquer ou je puis le 
trouper J Qinsi que son prix. 
Je uaus remerc i e d * auanca . 

Uotre revue est super ! 



Uiderj [ flnnuler J 



premier message affiche est le. dernier re^ u. Les houtons 
'Pr^c^dent' et 'Suivant* seroni utilises pour passer d'un 
message a I'autre. Le boulon ' Vidcr' pcrmct la remise a zero 
du fichier, apres confirmation bien .sur : 



Quand le Macintosh sert... 

, , . son icran affiche un minimum d'informations. 
11 s'agit de : 

ftttente d'un appel (CoiTimande+'. ' pour 
intcrromprc Ic serveur) 

lorsque le Macintosh est en attente d'un appel ; 
flppel regu, attente de connexion™ 

en attendant que voire correspondani appuic sur 
Connexion/Fin ; 

Connexion oh, serveur actif (connexion n" N) 

quand le Macintosh 'converse' avec Ic Minitel servi. N 
reprdsente le nomhre de connexions depuis le lancement de 
Ripomdeur, 



Uoute2-Mous effac^r le contenu tfu fictiler 
'Fichier serueur 3' ? 

[( Rnnuler ]| | DK ] 



Cote Minitel servi 

Apres affichage des dcrans de presentation, voire 
correspondent se trouvc dcvant une 'page' qui lui propose 
trois choix po.wihles : 

111 Laisser un message 
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donne accfes & differentes zones (parfaitetnent 
conir616es par voire MatiiiLusli-serveur), qui 
pcrmcucni la saisie d'un nom (obligatoire), prenom, 
nil mem dc telephone ei message de 196 caracteres (7 
lignes de 28 tardtleres). Nous avons particulierement 
soigne rergonomie du serveur, pour la parlie 
iitilisaleur ou la partie 'maitre' (fonctions de 
service) ; ainsi, par exeiiiple si votre coiTCSpondant 
d&ire passer plusieurs messages de suite, il uouvcra 
lors des nouvcaux affichages de la fenetre de saisie 
ses uom, pienom, eL numcro de telephone affichis 
par defaul (mais modifiables) et le curseur place, siir 
la premiere position de la zone de saisie du message. 
Dans le mcmc esprit, avani d'cnrcgistrcr le message, 
on le prdsenic tel qu'il sera reellemcnl enregistr6, 
permettant ainsi au correspondani une gventuelle 
modification ou, pourquoi pas, annulation. 

Fonctions de service 

Cecl votis est destine. L'ecran qui suit ce choix est 
un passage oblige pour allcr vers les fonctions dc 
service ; il faut ici frapper le mot de passe. Le 
serveur aulorise trois essais au terme dcsquels 
rindclicat est deconnectc. A£n dc sc proteger des 
indclicats fut^s, i! n'esl pas possible de faire piu.s dc 
irois essais tneme en revenani ii r^cran pr&edcnt 
entre deux tentativcs. Notons que, par souci de 



discTdiion, les caracttres du niot de passe sont 
rctoumes h I'&ran sous la forme d'ast^risquc ('*'). 
[3] Quitter ce rdpondeur 

Pour ceux qui s'apcr^oivcnt au dernier moment qu'il 
n'ont rien & faire la. , . 

Fonctions de service 

Vnus sen! potive^ accederS ces fonctions piiisque le mot de 
passe est indispensable. 
[1] Lire les messages 

Le fonctionnemeni est comparable k la lecture sur 
Kcran dc votre Maciniosh, les boutons 'PrccfSdcnt' ci 
'Suivant' 6tant seulement remplaces par les touches 
'Reiour' ei 'Suite'. 
[2] Kf facer le fichler 

Identtque k la fonction disponible sur Ee Macintosh 
avec, bien sur, demande de confimiation. 
[3] Changer le mot de passe 

Ceci peui &tre utilise si, par exempie, ie moi de 
passe a 6l€ communique ^ fin de demonstration. Le 
changement de ce mot est dot6 de nomhreuses 
protections qui garanlissent une modification 
paifaitement fiable. 



Programme 
'Repom'deur' (3 



c - 



■ tes indentations indique la 
continuite de la llgne. 

" Repom'Ueur - © 1988 ChrlsLl 
an Piaxd, Jsan-Luc SazanfSijue 
et loom's • 

liXBBARir ••Pum_Link 2.1" 
DEFINT A-Z 

DIM JifHiSdye^ (€!,Gris (3) , Rsac (3 
) 

OH BREAK GOSUB Bloque :BEEAK 
ON 

GOSUB InitialLsnLiun^i 
on MENU GOSUB Menus -.MENU O 
N 

ON MOUSE GOSUB Souris 

GOSUB OuvreFlchier 

Atte/it&Uuvert: tire; 

IF Dr TSEU Fi eft ierOu vert 

GOTO AttenteOuvertTire 

Menus; 

MENU OFF 

nMen u=MENU ( Oj 

nArtirAf^=MENUfl) 

IF nMenuol then FinMenus 

ON nArtirJf. GOSUB DemExlstsnt 



, DsmNouveaa, Lirs, Pion, Quitts 
r 

FinMsnus: 

HENU OH 

MENU 

RETURN 

DemExistant : 

SOSUB OuvreFichiar 

RETURU 

UeiJiNouveau: 

casus Nouvi^^uF i chlsr 

RETURN 

An eLer; 

WINDOSi CLOSE 1 
MENU 1,1,1 
MENU 1,2,1 
MENU 1,3,1 
Dr-Fanx 

GOTO RttenteOuvszCure 

Flen : 

RETURN 

Quitter: 

LJBSARY CLOSE 
WINDOW CLOSE 1 
SYSTEM 

Flchl^rnuvef rt ; 

iflNDOti 1, "BtdTi du servejyr", fO 

,S9i- (512,342},! 
TEXTFONT U ; TEXTS IZE li 
CLS 

MENU 1,1,0 
MENU 1,2,0 



MENU 1,3,0 

ON ERROR GOTO F.rreur 
RepriseAttcntti! 

GOSUB Vldevariables 

ChalneEtat$="AtteiiLti d'uii appe 
1 ^•'-^C!lR$^17}+•• + \' pour i 
nterrompre le serveur) " 

GOSUB spAffLcheEtst 

'• attente d'un appel • 
AttenteAppel: 
MENU 1,5,0 

ON BREAK GOSUB ArrStSsiveur 
MSNU OFF 
MOOSE ON 

Dr^Faux 
DrArret=Faux 

Diog-O 

WHILE NOT Dr AND NOT D three 
t AND C$<>CHR$ (27i AND Dlo 

Dl og=DIALOG (0) 
WEND 

MOUSE OFF 
MENU ON 

ON BREAK GOSUB Bloque 
MENU 1,5.1 

IF DrArret OR CS-'CliR$ [27} OR 

Dlo^=^4 THEN Arrstei 
OPEN "R", l,Fichier$.244 
FIELD 1,2 A3 zNombre^, 8 AS zM 
ot:$,16 AS zNorn$,16 AS zTel$ 
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GET 1 , 1 

NomServsur$=zNow$ ^.^^ 
TeJ-Opbon eSorvo ijrS=zTel$ ^ 
tlMot: ^ 
IF RICJIT4(Mot$, 1) =" " THEN M 

Ot$^LEFT? (Mot?, LEN mot$) -1) 

sGOTO tlMot 
tlNom: 

IF PIGST$ fNowServBtjr$, If ^" " 
THEN NomServeiir$^LEFTS (NomS 

GOTO tlNom 

IF RIGHT$ (TslephotieSsrveurS, 1 
)-" " THEN TelephoneServeurf 
^LEFT$(TelBphoneServs\ir$. LE 
K (TelephoneSsrvsur$) 1) :GOT 
tlTsl 

ChsineEtat$="Appel regu, atten 

te dc connexion..." 
GOSUB spAfficheEtat 
CnxR! Dr 

IF NOT Dr THEN Der^onnexion 
NosibreCon nexi ons=eiombzeCon nexi 
ons-f^l 

NombreConnexions?=STR$ (NombTEC 

on nexi ons) 
ChaineEtsi:$="Connexion ok, ser 

veur ^z:tif (connoxioa n°"+No 

mbreConiiexiana$+") " 
GOSUB spAfflchcEtat 

Ooplaca! 1, 13 

AfficheR! " / \ /~~~\ 

\ /\ / \" 

AfficheP! "/ \ / 

j () ( /-\_/" 
AfficheR! "{ /--\ ! { /~\ 

/~\ /-\ ) {} i 
Af ficiieR! "! I 



/- 



\ I 



}()(}{/ \ 



I I ) 



} } { { 



/ } 



\ J" 
/ \ 

}■• 

_/ \ / 



AfficheR! '•! f 

}{)(}- 
AfftchftU! "( \_ 

} ( ) ! ) 
AfficheR! "I 

} ( } { i 
AfficheR! "f \_ 

/ \J \J 

AfficheR! "I }" 
AfrlcheR! "f }- 
AffiahoR! "( }" 

Affichei ■•\_/ 

Par^mT! 1.2,0, 0, 0, 

Afficfifi! "- ha revLfe ofes Apple 

Haut! ii 
BasI i 

Dsplace! 9,17 
Pai^smT! 0, 2. 0. 0. 0, 
Afflche! "_"+Cm$(ia) ^CaRS(S6 
) 

Deplacs} 12,18 



FaramT! 0,3,0,0,0,0 
Affiche' '•_"+CUR$ (IS} t-CER$ {B2 
i 

Tempi =TIMES 

NHILE TIHER<rempH^2 

WEND 

' • ^Btiande page • 

Pagei: 
VldEcrsn ! 

Cadre! 1,1,40, 7,2,0,5,0 
Csdrs! 1,3,40,20,2. 0,5,0 
Deplace! 5,3 

Affich&t "Vans etes bien an "^ 
TelephoneServeurS 

Dsplace! 5,5 
Mode! 2 

Deplsce! 4,10 

Alflchfi! "VuLie i/jterlocuteur 

est un" 
DeplAce' 1, 12 

Affiche-i "ordi natmir Apple pre 

t a enreglszrer" 
Deplace! i. 1^ 

Atfiche! "vos messages ec co/if 
Deplace 1 1J,18 

Affiche! "Acces atf m^flu ; " 
Inverse! 

Afflche! " Suit a 

Deplace ! 18,19 

Affiahc! "Rcnoncer t " 
Inverse! 

Affiche! " Connexion " 

Boucl ePa ge2 ; 
AcceptF! Dr 

ON Dr+1 GOTO Dcconncx lonF, Som 
maire. Inset 1, Page2, Inactl, In 
act 1, Soinmaire, Sommaire, Deoon 
nexion, In^ctl 

Inactl ; 

GOSUB spTouchelnactive 
GOTO Boiic^lsP^ss2 
' • Soiimalre • 

VldEci dn 

VidRecn! 1,1,40,S,4 

Deplace! 9,4 
Par^imT! 1,7, '1,0,0,0 
Afflche! " R^pondeur telematiq 
ue" 

GOSUB spCAdresChotx 
p3rawT! 0, 7, 0, 0, 0, 

Deplace! a, IJ 

Affiche! "Lai^s^r un m&ssags" 
Oeplace! 3,11 

Affictie! "Fonctlons eie service 
Deplace ! 8,17 

Affiche! "Quitter ce r^pondeur 
if 

Deplace! 15,22 

Af fiahe! "Votrs cholx : i " 
Inverse! 



Afllchsl " Enval " 
BoucloCholxt 

ChaineS^"" 

Accept! 29,22, 0, l,Chaine$,D 
r 

ON GOTO PeconoexionF, Cho 

ixlmp2, Page2. Sowmaire. Cuidel 
mp2, BoucleChoix, BouclsChoix, 
Choixlmp2, Deconnexion 

Suidelmp2 : 

G0S03 Culdelndlsponible 
GOTO BoucleCholx 
ChaixIiTip2 : 

IF Cliaiiie.$<"l" OR Chaiiie'$>"3" 
THEN GOSUB Choiximpossible 
:GOTO BouclsChoix 

ON VAL(ChainB$) GOTO EnrMess 
tiijs, Sez vl(^, QulLLfi 

EnreglstremenL du messays • 
EnrMesaage: 
VidEcrar. ! 
Deplace! 3,2 
Inverse! 

FarsmT! 0,7,4,0,0,0 

Afflche! " Enregistrement de 
vocre message " 

Cadre! 2,1.38,3, 0, 0,2, 
Deplace! 1,5 

Afflche! "Votre nom ; 



Ligne! 

Affiche! " " 
Inverse! 

AffiL:lie! " Suite " 

Deplace! 1, 6 

Affiche! " Prefju/ji .- .. 

+" 

Ligne! 

Afflche! " " 
Inverse ! 

Afflche! " Suite " 

Ueplace! 1,7 

Affiche! "Talsphons : .. 

+" 

Ligne ! 

Affiche! " " 
Inverse ! 

AfficheR! " Suite " 
Chariot! 
Normal ! 
Mode! 2 

Affiche! " Messaqe_ 



FOR 1 11 Jex= 11 TO 17 
Deplace! 1, Index 

Affiche! " 

+" 

Llqne ! 

Afflcho! " " 

Inverse ! 

Affiche! " Suite " 
NEXT 

Dmplscel 1,20 

Affiche! "Pour vaiider votre m 
essags : " 
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' Envoi 
3,21 

'Pour 1 'dnnuler 



" Sormaire 



Lionel 
Atfiche! 
Inverse ! 
Affiche! 
Depljco I 
Affiohs! 
Ligfie! 
Affiche! 

Affichs! 

Cepisee-' 13, S 

AfficheRl min$ 

Deplace.' I^j6 

AfficheRl Fr&nom$ 

Duplies'. 13, 7 

AfficheR! Telephcn&$ 

TOR Iiidex-ll TO 17 

DspTf}c:e! Ij Index 

AtftchsR! Message? flnde>l-ll) 

NEXT 

ON Polntsur SOTO Ssis ieNonif 
islBPrQnon\,Sai s ieTelephone, S 
aisieMessage 

SalsieNomi 
Poi(iteur=I 

Accept i 13, 5, 0, 1 6, Wora5,flr 
<5N Dr+Jl SOTO DeconnexionF, ErS 
aisleN oji)^ InactS.BnrMessa^e, G 
uldelmp3, Iiicict3, Sonmaire, EcS 
aisieNom, Deconnexion 
rndcL J; 

G0SU3 spTouch&Inactive 
GOTO S^lsisNom 

GOSVB GiildBlndispuiiible 
COTO J .9 f eWom 

srsalsieNom: 

IF Nam$="" THEN Alert e> "Unm 
indispejisafiie. . . ", l '.GOTO Sdl 
sieNom 

IF Or^l GOTO vslits^tion 
Polnteur=2 

Accept ; 13,6,0,"",1 Prortom?, D 

r 

Olf Dril GOTO DcconnexlonF, Vsl 
Id&tion, SaisieNom. EniMessage 
, GuideJmpA, tnact ifSonimaire, S 
alsieTelephone, Deconnexion 

Ifiact4 ; 

GOSi/B spToticheinactlve 

GOTO SaisisPjreni^m 
Gu idslmp4 : 

COSVB Guideliidispcnibls 
GOTO SaisiePrenom 
SaisLsTslepbons : 

Accept I 13, 7, 0, "", 16, Tslephone 
$,Dr 

OH Dr*l GOTO DecannexionF, Val 
idatlon, SaisiePrenom, BnrMess 
asc,CuidcImpS, InactS, Socmair 
B, SaisieMessage, Deconnexion 



aOSUB spToachelnsative- 
GOTO tsAisieTelsphone 
GuidsImpS : 

GOSUB culdemdisponibie 

GOTO SaisisTelephons 

SaisisMessags: 

LigneMessage=0 

Salsi e^fes sagej? ; 

NumLigne=LigneM&sssgo+ll 

Pointeur=4 

Doplace ! 1, NumLigne 

AccQpt ! l,NumLigne, 0, "", ZiS,Mes 
s3go$ (LigrteMessagei ,Dr 

ON Dr+1 GOTO DQConnexianF,Vai 
idatlon, SAisieMessags3, EnrMo 
sssgo, GuidelmpG, Inact 6, Somma 
irs,Sai3ieMsss^go4, OGConnexi 
on 

GiildelmpS: 

GOSUB CvideTndisponible 
GOTO SaisieMssSage2 
InactS: 

GOSOB spToucheln^ctive 
GOTO SaisieMessage2 

LigneMessage=LigneMesBatie+l 
IF LlijiieMessage-7 THEN Valida 

t inn 

GOTO SalsleMessagsZ 

SaisieMessageS : 
Ligj}eMassago=LigneMeseage—l 
JF LlgneMessageO-J THEN sais 
isMessagsS 

LigneMessags^o :goto salslerele 
phoris 

'• Ecmn ds vallddCion • 
Validation : 
VidEcran! 
DepLace! 1,3 

AfficheR! "Void votre message 

tei tjir 'il sera" 
AfficheR! "enregistre :" 

iJejjldcre,' 4, 7 

Affir.hp! " Norn : "i-NomS 
Deplace! 4,8 

Affinhf^i "Prefiam ; "+Prenom$ 
Deplace! 4,9 

Af fir-hs! "TAJ^ph : "-l-Telephona 
$ 

FOP lnd&ie=0 TO 6 

Depiacc! 6,11-nnciex 

AfficheR! MessagsS ( Ini^ex) 
NEXT 

Daplace! 1,21 

Affiche! "Povr ie valider — 
Ligne '. 

Affiche! " " 
Inverse ! 

AfficheR! " Envoi " 
Normal ! 

Affiche! "Povr Ie modifier ... 
Ligne ! 



Affiche! " " 
lavsrss ! 

AfficheE! " Correct io 

Noi iYial ! 

Affiche! "Pour i'annuler 



Ligne! 

AfflUts! •' '• 
Inverse! 

AfritJieK ,' " Aimulation " 
Normal ! 

ALtert LeValidoitiD/i; 
Ac[:eptF! Dr 

ON Dri-1 GOTO DeconnsxLonF, Eiil 
egi strement^EnrMessage, Valid 
scion, GuideImp7,SotmuciiLi;, Sam 
mai r*», Chai xTmpT , Deconnexion, 
EnrMessage 

Chnix Tmp 7 ; 

Alerts! "Touche inlerdlLs",0 
GOTO AttenteValidarion 
GuidelmpJ: 

GOSUB Guidelndisponible 
GOTO AttenceUalidation 

'• Enr^gistreinent • 

Enregistrement : 
VidEcran ! 
Deplace! 6, 12 

Affiche! "Enrsqistrement en co 
urs" 

FIEM) 1,2 AS zNombre$,e AS zM 

ot$.16 AS zlSon\$,lS AS zTfit $ 
GET 1, 1 

NombreMessage=CVI ( zNombreS) 
NombreMessage^NombreMessage+1 
LSET zNombre$=MKI$ (Nontbre-Mes s 

age) 
PVT J, 1 

FIELD 1,16 AS UNf,16 AS VP^, 1 
6 AS uTf, 2S AS ulS,2S JLS u2 
5,28 AS U3?,28 AS }J4?,2S AS 
uS$,2S AS ii6$,29 AS i>7$ 

LSET vN$=Nom$ 

LSET uPS-Prsnom^ 

LSET uT$^Telephone$ 

LSET ul$=Messagc$ rO) 

L3ET u2$=l^essage$ 11) 

LSET u3$-!4essage$ {2t 

LSET u4$=l^essaqe$ (3) 

ZiSET u5$-l^e:ssagc$ (4) 

LSET u6$=Message$ (5) 

LSET u 7$-l^essage$ (6) 

PUT 1 , NnmbreMessage+1 

FOR Index^Q TO S 

Message? (Ii^dex) 
NEXf 

' • Dernier &cran • 
VidEcran! 
Deplace! 6.12 

AfficheR! "Votre message est e 

nreglstre. . . " 
DepJdoe.' 11,14 
Affjcfte.' ",..faltes " 
Inverse ! 
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Atflchs! " Summaiie " 
Aa::f^ptF! Dr 

IF Dr—raux THEM DecaiinexlonF 
IF Dr^B THEN Deconnexion 
PolnLBuc=4 :SOTO Sominaire 

Fonstiona de service • 
Service; 
ViOEcLAn 1 

VidR&ct! 1,1,40. e, 4 

Deplace! 10, i 

ParsmT! 1,7, i, 0, 0, 

Attjctie! " Fonctions de servLc 



ParamT! 0, 7, 0, 0, 0, [ ^ 

Depl3i=e! 32,12 ^ I 

AffichB! "+ " O — 

Inverse! 

Affictie! " Envoi " ^ 

Deplacs! 15,15 

Affiche! "Pour renoncsr : " 

Inverse! 



Affiche! " Si?mmaice " 

Atr.snr.f^Mnt: 

MotPassef"^"" 

Spcrp.t I 9, 12, 0, "Mat de pissse i 

Olf Dr tl GOTO DecunnexIanF, Att 

IdelmpS, InactS, Sommaire, Atce 
nteMot2, DeconnBxion 
CulOelmpB: 

COSUB Cuidslndisponibls 
GOTO AttentBMoz 
InactS: 

GOSUB sp'toiictis inactive 
GOTO AttsntoMot 

AttenteMot^ : 

IF WcJitPaEse-?=Mot5 GOTO At teat 
Ess3i=Esssi4l 

IF Essal=l THEN Alerts! "Mot 
da passa orronS" , 1 :GOTO Atte 



Jusqu'a 72 points avec MacWrite 

Le nouveau 'systeme' (4.2) est arrive avec les polices LaserWriter 
Courier , Helvetica tX Times (aiissi iitilisables avec line 
ImageWriter) en tailJes 27, 30, 36, 42, 54 et 72. 
Malheureusement, le menu 'style' de MacWrite n'autorise que les 
tallies allant de 9 a 24 points. C'est pourqiioi, atin de detoumer le 
probleiiie, nous avuns cree avec un cditcur dc fichicrs un 
document MacWrite baptise "MacWrite 9 a 72" et contenant des 
caracteres en tallies 9 a 72. Ces caracteres utilisent la police Times 
mais, ici, pen importc la police, c'est la taillc qui comptc. Par 
example, si vous voulez inserer dans un document le titre "Section 
1" en Courier 72 : 

fermez votre fichier ; 
ouvrez le fichier MacWrite 9 d72 ; 
selectionnez et copier 72 (ou seulement le 7 ou le 2) ; 
fermez le fichier MacWrite 9 a 72; 
ouvrez votre fichier ; 

coller 72 a I'endroit oil vous voulez placer votre titre ; 
taper Section 1 ; 
selectionnez Section 1 ; 

changer la police (Courier dans le menu Caracteres) ; 
supprimez 72. 

Le fichier Write 9 &72 est sur la disquette d'accompagnement de 
cc numcro. 



18 



10 

24 



12 

27 



14 

30 



36 42 



54 72 



IF Essai=2 THEN Aierte.' "Brre 

Attentemt 
VldEctdsi! 
DepJace* 10,12 

Affiche! "Desole, deconnexion 

ForcetB. . . " 
GOTO Deconnexion 
At.tfknteMnt3 ; 
Essal=0 
VidLign^} J?, 
vidLlgne! 15, Q 
GOSUB spCadresChoix 
Deplace! 8,11 

Afflcheif "r.ire )(=-■! m^^Srigf^s" 
Deplace,' 8,14 

Affic-hti! "F.ffsr.mr le fiahier" 
Deplace! 8,17 

Affiche! "Changer le mot lie pa 

sse" 
Deplace! 15,22 

Aftiche! "Votre choix : + " 
Inverse I 

Affiche! " Envoi " 
AttsntoSsrvice; 
CiiAine^=" " 
AttenteSsrvie:B2: 
Chaine?="" 

Accept < 29, 22, 0, "",1, Chsir>c$, D 

r 

ON Drtl SOTO PeconneisionF, Att 
enteService3, Service, Inact9, 
Guldslaip9, TnactB, Soamsirs, At 
tenceServiceS, Deconnexion 

GOSUB spTouchelnactlve 
GOTO AttenteServiceZ 
Guidelmp9 : 

GOSUB Guidel/jclisponiiile 
GOTO Attfknt.eS0T-vice2 
AttenLeServIceS : 
IF Chaine$^"I" OR Chsi ni^S>"3" 

THEN GOSOB CTtolximpossiaie: 

GOTO AttenteService 
ON VAHCnaine$) GOTO Lecture 

, Ef facer, Chan qeMot 

'' iecturo cJu fichier • 
Lecture: 

FIELD 1,2 AS zNuuiijie$, 8 AS zM 

at$, ! 6 AS 7.Nam$, I S AS zTelS 
GET 1,1 

Noiphr0Mess^^e=CVT ( zNaabr^$) 

IF Noiiil3refiessage=0 THEN Alert 

el "Aucun massage repu", J:CO 

TO Attenteservlce2 

FIELD 1,1b AS uN$, 16 AS UF$, 1 
6 AS iiT$,2S AS iJl$,28 AS u2 
$,28 AS u3$,28 AS u4?,28 AS 
u5$,23 AS u6S,2S AS u7$ 

Lectured: 
VldEaran! 

PjirflmT! 0,2,0,0,0,0 
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Affichei •■_ "+CHR$ (IS) tcHS$ re^ 

+3S) 
Veplsce! 2, J 
Model 1 

Aftictien'. "Consultation aes nte 

ssages enrs^istres" 
Mode! (J 

ParamTI 0, 3, 0, 0, 0, 

Attlche! "~"+CSR$ (18) +CHR$ (64 

+39} 
Deplace! 

ParamTI 0,6,0,0,0,0 
Mtiche! "Precedent :" 
Lignc! 

Affichei " " 
Jnvcrao! 

Affichei " RETOUU " 
DaplacQl 11,6 
ParaiBT! 0, e. Or 0, 0, 
Affiche! "Si/ivant .- " 
Ligne! 

Affichei •• " 
Inverse! 

Affichei •• SUITE 
Deplace! 15> 7 
ParamT.' 0, €, 0, 0, 0, 
Affichei "Fin : " 
Llijiiel 

Affinhp.^ " " 
Inverse ! 

Af ficheR! " SOMMAIRE " 
ParsmTl 0, 2, 0, 0, 0, 
AffichmR! "_ »+CSS$ (i S) ^-css$ ( 6 
4-i-33} 

Affichei " "+CMR$ (18) +CSR$ (S^ 
+39) 

Deplace! 1,12 

f aramr; v, i, u, v, v, 

Affichei "' "-tCHR? (13) +CBR$ ($4 
+39) 

Ccpii3cc' 1,2S 

ParamT! 0,9,0,0,0,0 

Affichei ^CHR$ (IS) +CHR$ {S4 

+39) 
Deplace.' 1,24 
ParamT! 0.2,0,0,0,0 
Affichei +cm$(ia) i-CnR$ (64 

*39l 

GET IrlfumMesssgs 
Nom$=uN$ 
Prenom$=uP$ 
Telephone$=uT$ 
Message? (0) =ul$ 
Message?!' J J =1)^5 
Messsge$(2)~v3$ 
MessagB$ (3) =v4$ 
Mc33aqc$(4) -u5$ 
Messaqe$(5)-\l6$ 
Msssage$ (6) '•v7$ 
Deplace J 5,10 

Affiche! " Message n°" + SXS$< 

NumMes sa ?e - 1 > 
Ueplacei 2,13 
Affichei ••' '> "+WtMf 



Deplace! 2,14 

Affichei •'■■> •'■!-Prenom$ 
Deplace! 2,15 

Afficha! "4-Talcphonc$ 
FOR Index^l TO 'I 
Daplacai 2, IS+Indox 
Affichei "' ' ' "+Message$ (Index 

-1) 
NEXT 

Attentehecture: 
Acc^ptFl Dr 

QM jsr+l COtO DeconnexlonF, ina 

ctlO, AEtenteI.=c:EU-reR, Lecture 

J,Cj'uicJeJfflpiO, lnactiO,:iommair 
eBis, AttenteLectureS, D&conne 
xian, inactio 
GuidsImplO: 

GOSUB Guideindisponibie 

GOTO AttontoLacturs 
SoimaireBls: 
GOSUB VideVariables 
GOTO Sonunaire 

InactlO: 

SOSVB spTauchelnactive 
GOTO AttenteLecture 
AtcenteLeccureR: 'Retour 
N umMess^ge =NumMBS sage-l 
IF WumMessage>J GOTO Lecture2 
NuinMessage=2 ; Alerts! "C'sst le 
premier message", I : GOTO Att 

cnt elect utc 
Art:enti=Li=:aturi=s : 'Svitt^ 
W umMes sage =N\imMess age+1 
IF NuinM€>ss:agBir-lt!ombreMsssags+l 

GOTO Lecture2 
UvjnMess^ge-^NamhreMe^sssgs+J :Alf^ 

rt0t "Vest le dernier", 1 :Q3 

TO AttenteLsatvre 

'• Effac&r fichier • 

Ef facer: 
Vi(IEf;i an ! 

VidRect! 1,1,40,6,4 
Deplace.' 10, « 
ParamT! 7,7,4,0,0,0 
Affichei " Effacement fichiez 
it 

FaramT! 0, i, o, o, o, o 

Depi^co-' 5,10 

AfficheK! "cette coimande $upp 

rime 1 'enssiJibie" 
Deplace! 5,11 

Atflcnen; "des messages stofc^s 
Deplace! 5,13 

AffichsS! "On ne- p&ut annular 

un eflacement ..." 

R$="" 

Deplace! 5,22 

Affichei "Pour ef facer " 
Lignel 

Affichei " " 
Inverse! 

Affichei " OUl + Envoi " 



ueplacel i,2'J 

Affioh&! ^'PciMr renoncej: s" 
Lignel ( ^ 

Affichei " " ^ \ 1 

Inverse! '~ -r? . 

Affichs! " Sonmairc " C^^^^ 

AttenteEIface: ^ 

Reponsc$—"" 

Accept! 10, IS, 0, "Ok pour tout 
ef facer ? ", 3, Reponasf, Dr 

ON Dr-t-1 GOTO DeconnexlonF, Att 
enteEfface2, Inact.ll,Eff&csr, 
GvidelmpllfSoimaire, soimaire 

, Inact 11 , Dscofsnsxio/} 
Inactlll 

CQSVa spTouchsInactive 
GOTO Attent&EffaQS 
Guidslmpll : 

GOSUB Saidelndispoitible 
GOTO Attentefifface 
Attentefif face.? ; 

IF Reponse$<>"OUI" THEN Repuii 
se$^"" :Alerte ! "ftepanse j'nco 
i-re ct e O.-SOrO AttenteEfface 

FIELDS 1.2 AS zNomhrf^S, 8 AS zM 
ot$,l€ AS zNom$,lS AS zTel$ 

GET 1 , 1 

X.SET zNoiiibrii$=MKI$ (0) 
PUT 1,1 

VidEcran! 
Deplacs! 6,12 

AfficheR! "Le flchler a ete re 

initialise, . , " 
Deplace! 11,14 
Affichei ". ..faites " 
Inverse .' 

Affichei " Sommaire " 
AcceptF! Dr 

IF Dr^Faux THEN DiiaoriiiexloriF 
IF Dr=8 THEN Deconnexion 
GOTO Summalre 

' • Changer le mot de passs • 
ChangeMot ; 

VidScren! 

VidRcct! 1,1,4 0,6,4 
Deplace! 14,4 
PararaTi 1,7,4,0,0,0 
Affiche! "Mot de passe" 
PsrairiT! 0,7,0,0,0,0 
Deplace! 1,23 

Affiche! "Four renoncer, faite 

3 : " 
In vsrsB i 

Affinhp.' " .Inrnmai rt^ " 
Deplace! 1,11 

Affiche.' "Tapmr !e nouveau mat 

da passe ■*■ " 
reverse.' 

Affichei " Unvoi " 

Deplace 1 1, 1£ 

Attlche 1 "Taper le a nouveau p 

our controle" 
Cadre! 25,12,35,14,2,0,5,0 
Cadre! 35, 17, 35 , 19, S , 0, 5, 
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VerifMoc: 

Secret .' 27,13, 0, 7, Reponsc2$ 

OS nr+ 7 GOTO D&cot>nexlonF,Ver 
lfMot2, Indctl2, ChcingeMoL, Gui 
deTapl2, Iiiactl2, Sommsi rs, Vsr 
1 rtia tZrOecannsxluii 

Tnact 

G05UB spTouchelnscLlvs 
GOTO VerffMnt 
Guideiiitpi2 : 

COSUB Suidslndispon ibl& 
GOTO verifMot 
VerifMot^: 

Ji* L£N (Ksponse2$) < 4 TBEK 
Alerte! "Minimum 4 caracrtere 
s", j.-GOro veritmt 

VorifmtBis: 

Reponse3$="" 

Secret / 2 7, i 8, 0. "", 7, Rsponse3$ 

ON Dr+1 GOTO DeconnoHlonF, Vor 
ifMotBis2, InactI3,CHangeMot, 
CuidoItiipl3j Inactl3, Sowmaire, 
Veri f Mo tBisS, Decon nexi on 

InactlS! 

GOSUB spTouchelnsctive 
GOTO VsrifMotBis 
CtlidelmplJ: 

GOSUB Guidslitdisponiblc 
GOTO VeiitMQtBLs 

IF Ref>Qt>se2S<>Reponse3$ TH^N 
Alerte! "Les deuH moti dc 
sse different", 1:G0T0 VerifM 
at 

Mot$^Reponse2$ 

FIELD 1,2 AS zNombrsP, 8 A3 zM 

otS.16 AS zNoi!tS,16 AS zTel$ 
CtET 1, 1 

LSET z!4ot$=Mot$ 
PUT 1, 1 
VidEcran ! 

Deplace! 6,12 

AfflchcRJ "Lc mot do passa 3 e 

te chanqe. . • " 
Depl aco! 11,14 
Affiche! ". ..faites " 
Inverse ! 

Affiche! " Sormaire " 
Accepttl Dr 

IF Dr=Faiix THEN DeconnexlonF 
IF THEN Deconnexion 

GOTO Sommaire 
'• sous-programmes divers ' 
spToachfiliiduL i t'K ; 
Alerte! "Tauobe inactive ici". 
Faux 

RETURN 

Ctiidelndisponible : 

Alerte! "Guide indisponible", F 

aux 
RETURN 



spCadresChoix ; f " 

Cadre; 'S, ID, e, 12, 2, 0, 5, 
Affiche! "1" — 
Cadre/ 4, 2 3, €, 15, 2, 0, 5, 0<^^ 



Affiche! 



Cddt^! 4,16,6,18,2,0,5,0 
Affiche! "3" 
RETffRH 

Choixintposslble: 

Almte! "Cltaix Imposslbls", 1 

SETORtl 

spAfflcheEtat : 

PRINT ChsineBtat$ 

PRINT 

RETORN 

OuvreFictiier: 

Ficnier$=FII.ES$ (1, "PE^p") 
IF ZSK(Fichl^r$} THEN Dr=Vra 
i ELSE Dr=Faux 

RETURN 

ArrstServeur: 

RETURN 

VldeVarlables : 

Painteur=0 

Nam$-"" 

Prenom?^"" 

Tclcphon 0$-"" 

FOB Index^O TO 6 

Messaged flndex) ="" 

NEXT 

RETURN 

Souris: 

Appel ! Dr 

RETURN 

' • iin St dsconnexlan • 
Ouitts: 
VldEcrsn ! 
Depiace.' 10,12 
Affiche! "Au revoir..," 
GOTO Deconnexion 
Dcconnexi onF; 
VidEcr&n ! 
Deplaae! 3,12 
Flash! 

Affiche! "Minitcl inactif depu 

is 2 minutes, " 
Deplace! 9,14 
Flash! 

Affiche! "Deconnexion forcee." 

Doaonnaxion; 

DeCnx ! 

CLOSE 
RESET 

GOTO RepriaeAttente 
£rreur; 

KESmS tTreur2 
Erreijr2 : 
VidEcran ! 

Affiche! "Dasole, prohlsme ser 

veur" 
GOTO Deconnexion 



•• ouvertvre d'un nouveau fich 

Wo uveauFichier : 
Drln verse=Faiix 

WINDOW 2,"", (lis, 44) - (379, 275 
},-2 

TEXTFOMT .'TEXTSISE 12 
PENPAT VARPTR '.Gris (01 ) 
MOVETO 8,120 
LINETO 255,120 
MOVETO 8,2 00 
LINETO 255.2 00 
SENNORMAL 
MOVETO 16,16 

PRINT "Mat de p^sso : de 4 A 

7 caract^res" 

MOVETO 1 6, 32 

PRINT " (A -> Z &t d -> 9) . " 
MOVETO 16,D6 

PRINT "Norn : jusqu'a 1€ cardc 

teres " 
MOVETO 16, 72 

PRINT "a/fichdbles par taus 1 

es Minitel . " 
MOVETO 16, 9 6 

PRINT "Telephone ; jusqu'Sr 16 

caracLsms" 
MOVETO 16.112 

PRINT "affichablns par tous 1 

MOVETO 5 6,141 
PRINT "Mot d» p3Sse" 
MOVETO 16, 165 
PRINT "Nam" 
MOVETO 16,ie9 
PRINT "Te I . " 

EDIT FIELD 1,"", (160, 123) - (2 
48. 144) 

EDIT FIELD Z, " " , (54, 153) - (24 
8, 1 63} 

EDIT FIELD 3,"", (54, 177) - (24 

9, 1 92) 
EDIT FIELD 1 
}JumEdit=l 

BUTTON I, 1, "Annulet", (16, 208f 

-(139,234) 
BUTTON 2, 1, "OK", (136.208) - 124 

8,224) 

ON DIALOG GOSUB DlalogueNou 

veau : DIALOG ON 
DrSortie=Faux 

BoucleD; 

IF DrSortie THEN Sorti&Wouve^ 
u 

GOTO BaucleD 

Sort i f=Mfmve^ t.i : 

PIALQQ OFF 

WINDOW CLOSE 2 

IF NOT Or THEN RETURN 

Fichier$=FlLES-? (0. "Nom du fich 

ier serveur ; "j 
ZF LEN(FlchlBrS) THEN Dr^Vnt 

i ELSE Or^FauxtRKTURN 
OPEN"R", l,Flc:hiBr$,244 
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FIELDil,2 AS zNamb!re$, S AS zM 

QtS,l€ AS 7.Mnm$, IS AS xTp.l S 
LSET sNambre$=MKIf(0) 
LSET 7Mnt$=Mat:$ 
LSET zNo{n$=NomServeur$ 
LSET 7:Tf>l S-Tf^} (^phnnf^!5F!rvi^ur$ 

PUT 1,1 
CLOSE 

NAME FichiarS AS FichiBrS, "PR 

lip" 
HETOSS 

DLalogueNouveau; 

DIALOG OFF 

DlalO=DIALOG(0} 

OH DialO COSUB BoutonD, SdxtP, 

RienD, RienD,RlenD, Retur/iD, fie 

turnD 
DIALOG ON 
RETURN 

BoutonD: 

If l>rln verse THUN GOSUB Sign 

ale:DrInverse=F3u>! 
Diall=DIRLOGil) 
IF Dlall=l THEN Dr-^FaumDrSor 

tiB=Vrai: RETURN 
Mot$=EDIT$ (2) 
NomSBrvsvr^=EDIT$ (2) 
Telophi>nsScrvcijr$-EDIT$ (3) 
LMot=I£N(Mot?) 

IF LMot<r4 OR LMot>7 TBSlt BEE 
P:[>rInverse=-2 iGOSVB Signale 
:E1>IT FIELD l,Mot$, (ISO, 12 

ETURU 

LNom ^LEN (NoniServeur$) 

IF LNom<l OS LNoin>l 6 THEN BE 
EP:DrTnverse=2 :GOSOB Signal 
s:EDir FXEU3 2, NomSsrveur$ 
, (54,153)-124S. 263) :DrSort:le 

^Faux:RETURN 

LTel=LEN (TelephoneServeurS) 

IF ifelv-J OK LTel>16 THEN BE 
EP:DrInv0rse=3 :COSOB Si^nsl 
e.-£DJr FIELD 3, TelephoneSe 
rv(^ur$, (^4^ 1 7 7J - J 92} :Dr 

Sui LlB=FiHJX: RETURN 

DrErre!}r=F3 ust 

FOR Indsx-1 TO LMot 

C$=MTD$ (Mot$, IndE-x, 1 ) 

IF (C$;>"/" AKP C$<":"l OR (C$ 
> " AND C$<"]"} TSEN t es 1 
H 

DrErrB\ir=Vra i 

testOK: 
NEXT 

IF DrErreur THEM BE2P:0rInvo 
rse=l :GOSaB Signa le :EDIT F 
XSLD l,Mot$, (ISO, 129} - i24S, 1 
4 4} :DrSortie=Faux: RETURN 

DtScrtie-VrAi:Dr~Vrai 

RETURN 

fditU: 

IF Dr In verse THEN COSUB Sign 
aiezDrlnverse =Fa ux 



NusnEdi t ^DIALOG (2} 
EDIT FIELD NumEdlt 
RETURN \^ 



3^ 



RETnRN 

RezurnD: 

TF DrInverse THEN GOSUB Sign 

ale: DrIn verss=faux 
NumEdi t -NumEdi t +1 

IF «umtdit=4 TJiEN Numt:alt=i 

EDIT FIELD NumEdit 
RETURN 

Signale: 

Rect (top) =4+(DrInverse-l} *4Q 
Rect(left}=8 

Rect (bottom) =36+ (Drlnverse-l) * 

40 

Rect (right)=?55 

INVERTROUNDRECT VARETRfRec 

t (top}}, 4, 4 
RETURN 

'• iecture dss fiches sur Is M 
aclntosh • 

Lire: 

Flchifsr$^FILES$ (1, "PS^p") 
IF FichiQr^^"" TEEN RETURN 
mm 1,1,0 
MENU 1,2,0 
MENU 1,3,0 

OPEN ■•R",i,Fichier?,244 

FIELD 1,2 AS zNombrcS, 8 AS zM 

ot?,16 AS zNom$,16 AS zTel$ 

CET 1 , 1 

NombreMessage =CVI (zNombie?} 
IF NambreMes3iige=0 THEN CLOS 

Eiaosaa DialMessageOiCOTa 

RetourLlre 
GOSUB DialAffiche:CLOSE:<SOTO 

fletouriire 
RetourLlre: 
HENtJ 1,1,1 
MENO 1,2,1 
MENU 1, 3, 1 
RETURN 

'• Dialogue pas de message • 
DialMessageO: 

WINDOW 2,"", (lOa. 120) - (ill. 19 

TEXTFONT sTEXTSIZE 12 
BEEF 

MOVETO 16, 24 

PRINT "Ce fichier ne contient 

pa3 de message. " 
BUTTON 1,1, "OK", (192, 40)- (2B6 

,56} 
Rect (top} =36 
Rect (left) -ISO 
Rect (bottom} =60 
Rect (right) -300 
PENSIZE 3. 3 

FRAMEROVNDRECT VARPTR fRect 
(top)}, 12. 12 



PENNORMAL 

Bl ng=Faux 

ttHILE Dlogol AND Ulogot 

Dlog=niRLOG<0} 

WEND 

WINBOW CLOSE 2 
RETURN 

'• Dialogue message enreglstri 
DialAffLche; 

WINDOW 2,"", (IGO, 60} - (351, 203 
>,2 

T£XTFONT OiTEXTSIZE 12 
BUTTON 1, 1, "FrScedent ", (I S, 16 

B}-(SS,184j 
IF Nan)breMsssage=l THEN BVTT 

ON 1, 

BUTTON 2,0,"Suivant", (104,168 

}- (17^,184} 
BUTTON 3. 1 , "Vider", tl 6, 200} - ( 

56, 21 6} 

BUTTON 4, 1, "Annuler", (72,200} 

-(176,216) 
TEXTFONT 4 : TEXTS TZE 9 ; TEltT 

MODE 
xNumMe ssage$="" 

xPreitont$=" " 
xTeieph one$="" 
FOR Index^O TO S 
xLlgneMe3sage$ (Index) -"" 
NEXT 

SOSUB Ma J 

NvinMQssags=NombreMess3go-i-l 
NombreMessage$=STR$ (NombreMess 
age) 

IF l£WT$ (NombreMessage?, 1} =" 
" THEN NoitibreMasssgQ$-RiaRT 
$ (NombreMessage?, LEN (NamhreM 
ssssgo$) -1} 

FIELD 1,16 AS uN$,16 AS uP?,l 
6 AS 117$, 23 AS ul$,SB AS 
$,28 AS u3$,2a AS u4$,Z3 AS 
u5$,23 AS u6$,2a A3 u7$ 

LectvTeMac: 

GET l,NuuiMessage 

xNom$=uN$ 

xPrsi] om$-uP^ 

xTelephoneS=u TS 

xLlgneMtissag&$ (0) =ul$ 

xT.i gnf^Mfisnagf^S (1 } =t>P$ 

xLigneMessags$ (2) =v3$ 

xLign'^M^ssag&$ (3) =1)4? 

xLigneiyiessageft4) =u5? 

xLign<sMesssgs$ (5} 
xLigneMessageS/ (6} =u7$ 
xNva\Messag0$="Mess3ge "^STR$ (Nu 
mMessage-i} +"/"+NombrsMessag 

6$ 

GOSUB MaJBis 

BDlal25: 

Dlog=FaUie 

WHILE Dlogol AND Dlog<>5 
Dlog=DJALOG(0) 
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mm 

IF Dlog^S THEN GOSUB MaJ :GO 

TO BDiAl25 
Dlog^DIALOG(l) 

ON Dlog GOTO Precedent, Suivan 
t, Vider, Annulsr 

Precedent : 

IF NumMessatfe=2 THEN BDial25 
NuniMess a gs -W umMess a ge - 1 

IF NumMessage=3 7HEH IF BUTT 

OH (2! THEN BUTTON 1,0 

IF NumMe$sas&<^tiombreMsssage-H 
THEN IF BUTTON (2} =0 TBSH 
BUTTON 2.1 

SOTO L^ctureMflc 

Sulvant: 

IF Nvmflessage=Homt>reMessags-H 
THEN BDisl25 

NiimMe ssa^e=NvmMessage+l 
IF N umMss sage =Nonii>r ejf a 

THEN IF BOTTOSt?) THEN B 

UTTON 2, 
IF NumMessagQ>2 THEN IF BUTT 

ON!1}=0 THEN BUTTON 1,1 
GOTO LectureMac 
Vlder: 

GOSOB Canfirmariort 

IF NOT Dr TSZN LectureMdc 

Dr=Faux 

Annuler: 

WINDOW CLOSE 2 
RETURN 

mJi 

PENPAT VARPTR(Grls (0} i 

MOVEtO 8,24 

LINETO }SjI,24 

MOVSTO ff, 72 

LINETO JH^,7? 

MOVETO 8, 1 60 

LINETO 184,1 fa 

MOVETO 8, 192 

LINETO 184,192 

MaJBls: 

MOVETO 12. le 

PRINT xNumMessagsf 

MOVETO 12, 10 

PRINT XNOm$ 

MOVETO 12, 5 J 

PRINT xFreno!!i$ 

MOVETO 12, 62 

PRINT xTelepnons? 

FOR lndsx=0 TO € 

MOVETO 12,88+ll''Index 

PRINT xLlgn^Mess^gs$ I Indox} 

NEXT 

SSTUPN 

Dialng-uja nnnfirination • 
Confirmation : 

NINDON 1,"", ilQO, 120) ^411,1$) 

1+16), -2 
TSXTFONT 0:TEXT3IZE 12 
C$-Fichler$ 
BoucleConfirm: 
DP=XliSTR(C$. ";•') 



IF DP THEN C?=RIGHT9 IC?,LEN 
fC$}-DP> :G0TO Sovcl&Confirni 
BEEP 

MOVETO 16,24 

PRINT "Voulez-vous ettacer le 

contenv du flchicr" 
MOVETO 16, 40 
PRINT •• "' C? "' ?" 
BUTTON l,l,"Annsiler". (72, b6)- 
(IIG, 72) 

BUTTON 2, 1, "OK", (192, 56) - (296 
, 72) 

Rect (top) =52 
Rett (left) =SS 
Rect (bottom) =76 

Rect (rl-fht) -180 
PENSIZE 3,3 

FRAMEROUNDSECT VASPTM (Rect 

(top)), 22, 12 
PENNORMAL 

Dlog=Faux 

WHILE Dloq'i>l AND Dlogo^ 

Dlog=DIALOG(0} 

WEND 

IF Dlog=6 THEN Dr^Faux:GOTO 

SortieCoiiflrm 
Dlag=DlALOa(l) 
IF Dlog=l THEN Dr^FdUK iGOTO 

SortleConfirm 
FIELDS1,2 AS zNamt}Zfi$, 8 AS zM 

ot$,l€ AS zNnm$,]f; AS 7.Tf>1 S 
GET 1 . 1 

LSET zMombre$-MtCl$ (0) 

PUT 1,1 

CLOSE 

Dr-vral 

SortieConfina: 
WINDOW CLOSE 1 
RETURN 

'• Initialisations • 
Initialisations: 

FOR IndeX^O TO 3 

Gris (Index) =iHAAbi 

NEXT 

FaUX=Q 

Vrai—1 

top=0 

2eft-l 

bottom=2 

right— 3 

MENU l,0,l,"Fichler" 

MENU 1, 1, 1, "Demarrsr avec un / 

ichisr existant..." 
MENU 1, 1, "Demarrez" svec un n 

ouveau fichier..." 

MENU 1, 3, 1, "Lire les messages 

enregistr^s..." 
MENU 1, 4, 0, ■• " 
MENU 1,^^,1, "Quitter" 
MENU 2,0, 1, "Pom's" 
MENU 19S8 JLB, CP & 

Saltions MEV ~ 33.51 .24 .43" 
WINDOW CLOSE ? 
RETURN 





rouverture de la nouvellc version 
de ce gestionnaire, le fichier se 
pi6senle sous la Torme d'uii 
tableau : chaque colonne 
repr6senle un champ, 
chaqiic lignc unc fichc. 
Com me sur Works, on 
peut obienir une 
presentation pai 
fiches {I'ensemhle 
d'une fiche apparatt k I'dcran). Ces 
deux modes de pr^senlation ne sont 
pas paramdirables et la seule police 
disponibie est le Monaco 9. Lc 
manuel d'utilisation est sobre lui 
aussi : les cents premieres pages 
survolcnt tous Ics aspects du logicicl, 
permettant un rapide apprenlissage de 
base. Pour le rests il faudra se plonger 
dans les 200 autres pages, arides mais 
efficaces. 

Sobri^ti, tel sembk etre le mot 
pour definir 1' aspect d'OverVue 2.1. S'il 
fallait choisir un mo: pour en decrire 
les lonctioTinalitfis, efficacitfi serait 
sans doule le pltis approprie. En effet, 
OverVue 2.1 gcre les ftches entierement 
el uniquement en memoire vive. Cela 
lui conlere une lapidite 
impressionnante dans Ics operations dc 
tri. Mais cette rapidite est utilisee 
£galemcn[ pour cffcctuer un contrdle 
precis de la saisie. au moyen de U^ois 
fonctions astucicuscs : Non-Dupltcaias 
permet d'averlir I'uiilisateur lorsqu'une 
mcmc valeur est inu-odullc deux fols 
dans une colonne, N on- Unique avertit 
Tulilisaieur s'il vieiil d'eiiliti uiic valcm 
qui n'existait pas dans la colonne. 
Eufin, Ciair voyarice permet, au couts de 
1b saisie, de laisser OverVue "deviner" 
?e que vous eies en tiiiin de taper en 
fonction de ce qui existe d^ja dans la 
colonne. 11 termine ainsi la frappe pour 
vous. Parfois, st plusieurs valeurs ont 
le meme debut, deux ou irois letires 
s'imposeront pour assurer cette 
"clairvoyance". Une fois qu'OverVue i 
affiche vid^o inverse la vaieur qu'il a 
devine, vous pouvez soit !a valider soit 
poursuivrc normalcmcnl voire frappe 
pour un autre mol. Ces trois fonctions 
se montrcnt cxtrcmcment confortables 
et Bccdlerent r^ellemeni la saisie, sans 
ralcnlir scnsiblement le fonction- 
nemeni du programme. 
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Miis, plus encore, il est possible, pour 
une colonne donn^e, de definir un 
format precis, par exemple la posilion 
des parentheses el lireis s'il s'agil de 
notcr dos num^ros de telephones. Par la 
suite, il n'y aura plus qu'a saisir Ics 
cjiiffrcs. Bicn sur, si cette colonne a 
cte cochee comme Non-Unique el 
numcriquc, on eviiera de nombreuses 
erreurs de saisie. En cas de donnees 
fortcmcnt rcpctilives, comme les jours 
de la semaine, on peut gtablir un 
masque dc saisie i. choix multiples 
grace a la fonction Baire de Saisie. 

La gestion en m£moirc vivc offre 
d'aiitres atouts. Ainsi, OverVue se passe 
Ix&s bicii dt: la function Ituiex, pr^sente 
siir toiile?! les bases de donn6es 
convenlioiinelles, A quoi bon tl^finir 
des prioritSs dans les recherches 
^uisque meme les plus gros fichicrs 
scint fri^j en Quelqiies secondes. II 
existe cependant un peiii intonvenienl 
a cela : les tris ne porlant que sur une 
colonne a la fois, il faut ensuite 
effecluer un autre tri sur le critfere 
suivani, le premier ordonnancement 
n'^tant pas oublie. En plus du tri. 
OverVue propose le regroupemeni des 
fiehes, une fois tribes. Par cxemple, 
chaque ville d un flchier d'adresses cr<Se 
un groupe qui sera separ^ d<ss autfes par 
Une fiche speciale appelce sommaire. 
Ce sommaire pennet d'effeciuer des 
calculs dans chaque groupe (moyenne, 
sommc, mini, maxi, comptcur. ..),, mais 
se comporte comme une liche ordinaire 
pour les tris et selection. Ccs 
possibilites sont souvent offertes dans 
les aulrcs logicicls avcc ic module 
"rapports", rarement a I'ecran. Les 
possibilites dc recherche ct dc 
selection sont tout a fait classiques et 
lien ne manque. 

OverVue pr^sente en outre deux 
caract^ristiques qui le rapprochent du 
tablcur ; ua nombrc important de 
fonctions de calcul et la possibility de 
rcpresenter les donndcs sous forme dc 
graphiques. On peut ainsi rempiir une 
colonne d'unc valcur fixe ou d'une siJrie, 
ajouter les valeurs de deux colonnes 
dans une troisieme, rnulliplicr cc 
r6suliat par trois, le diviser par 2 et 
envoyer le tout dans la colonne 
siiivante. Le tout peut ctre assorii de 
fonttions lygiques. Curies, il n'y a pas 
de fonctinns malhfimaliques et 



financieres, mais I'accent a ete mis la 
oti il le fau: pour un fichier : Talptiabet. 
Une douzalne de fonctlons sur les 
chaines de caractferes sont en effct 
disponibles (extraction, reperages de 
chiffres, conversion majuscule/ 
minuscule, rotation.,,). Le module 
graphique est simple mais il est 
impossible d'imprimcr un graphique a 
paiiir d'OverVue, il faudra le tiansftSrer 
viii r album. 

On touche un point crucial du 
logiciel. En effct, OverVue n'utilisc pas 
I'lmageWriteT ni la La.tierWriter en 
mode graphique. 11 utilise le proprc 
generateur de Garacteres de 
rimprunajiti;. Ainsi, OverVue se limitc 
aux seuls caracteres romiins sans 
italiquc ni gras. Les rapports imprimes 
permettent soil unc simple copie de 
tableau (jusqu'a. 2O0 caracteres de large 
en ultra-condense), soit du cousu-main. 
Dans ce cas, on se rapproche de 
I'emploi de masqvies des bases de 
dermics classiques ; un ci6c des cases 
correspond antes aux crdonres choisies, 
on en determine la longueur et la place 
sur le rapport, on ajoute. dn texte lihre 
ja el Ik, on peut dater... licu que de tres 
classique. Les fiches de sommaire 
s'inicrcaleni ^ loisir. II est possible de 
mem(>riser huit formats de rapport. 
Avec dc I'habiiude, les rapports 
d'OverVue sont presentables, malgre 
leur limitation a un seul :ype de 
caractere. Notons qu 'OverVue peut 
innprimer sur quatt'e colonnes et accepie 
toutcs les hauteurs de papier; t'est done 
im precieux generateur d' etiquettes. 
La fusion de fichier est ce (jui lend 
OverVue relationnel. Lp.s rienx fichier."! 
peuvcm 6tre juxtaposes, cltacun gardani 
ses caract^ristiques proprei, ou 
superposes s'ils soni du mSme type. On 
peut aussi inserer un fichier entier au 
milieu d'un autre grace a la fonction 
caller. Enfin la fonction Lie,r permet 
une reelle fusion relationnelle ; on 
precise quelle est la colonne de chaque 
fichier qui conttent les donn^es de type 
commun, puis quel nom dormer a la 
colonne nouvelle qui accueillera le 
riSsultat dc la fusion. Ces operations 
sont sans danger dans la mesure oij les 
deux fichiers d'origine subsislcnt 
loujours. Le scul probleme que Ton 
pent rencontrex ici est la place 
disponible en m^moire vive. 



OverVue dispose en outre d'un editeur 
de macros-CLHuinaude ires coniplet. 
Chaque fichier pent g^rer jusqu'^ vingl 
iiiacrus. Une fois fctites et tilrfics dies 
apparai.'isent dans le menu Do et 
peuvi^iit etic liiiic^c piu uji laccouici 
clavier. Iji definition de ce.'L macros uc 
s'opfere pas par enregisiremeni d'une 
sequence de cortimandes mais par un 
^diieur de texte, ce qui rend Icur 
realisation plus difficile. Elles peuvent 
effectuer touies les fonctions d'OverVue 
sauf les entrees/sorties Finder, elles 
peuveni s'interrompre pour demander i 
rutilisateur d'entier une reponse. On 
dispose 1^ d'un veritable langage de 
programiTiation. 

En ce qui coneeme I'ouverlure sur 
I'ext^rieur, OverVue est plus doue pour 
rimportaiion que pour I'Exportation. 
L'exportation n'est en effet possible 
que pur I'albura, le presse papiers et 
I'ecrilure d'un rapport sur disquc et non 
sur rimprimantc. Pour rimporiation, 
les formats texte (avec choix de liois 
separatcurs : virgule, tabulation et 
retour-chariol), Sylk et Dif sont 

accept^s. 

En definitive, OverVue est une gestion 
de fichier originalc et simple d'emploi. 
EUe est paiticuliferement effieace et 
puissante, grace k la gestion en 
memoire vive. C'est pour rinstani le 
seul programme a proposer des 
fonctions aussi etendues pour I* 
controle de la saisie. Ses macros, en 
cambinant des fonctions astucicuscs 
permettent de r^cupirer des heures de 
saisie et d'cn £conomiser autant. 
OverVue apparait presque comme un 
logiciel intigri qui serait oricnid vers 
li base de donnees (conirairement a 
Excel qui lui est oricntd vers le 
tableiff). Cependant deux points faibles 
vieiiucnt ternir le tableau ; I'aspcct 
trop sparliatft de la pre.sentation a 
r&ran et surtout ^ I'impression ainsi 
que I'absence de fonction "Annuler". 
OverVue est rem^quabiemeni efflcace 
pour les bases de donnees de taillc 
moyenne ne nScessitant pas des 
rapports ^ la. presentation 
irrdprochable. Elle est agr^able k 
utiliser mais donne un sentiment de 
frustration devant Tabsence de certaines 
fonctionnalit^s primordiales comme 
I'impression soignee. 
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Nouvelles 
du front 

n y a de I'angoisse dans I'air chez les 
propridtaires d'Apple // : Tabandon 
ddsormais officid par Apple de b 
production du //e et du //c signifie-t-ii 
la condamnation de TApple // 1 
Du point de vue d'Apple, les choses 
sont claircs : Apple csi unc enireprise 
dnnt toiite la force repose dans 
I'innovation (technologique ei 
logiciclle). Quclles que soient les 
reticences de chacun d'entre nrms an 
changemcnt, nous avons donnd de 
I'argent h Apple, et cet argent est 
utilise par liii poiir rester la fete de 
rintiovation en matifere d'infonnaiique 
personnelle. Nul n'ignore que ni le 
Mac II ni le GS n'oni 6t6 prec6d6s par 
une quel con que Stude de maiche, pas 
plus que TApple ][ de Wozniak. ne 
I'avait 6t6. Nous faisons de botis 
produits, et le march6 suivra ; c'cst 
ains) qu'Apple raisonne depuis 
Wozniak - avcc quelcjues echecs 
(Apple in, Lisa) mais avec 
principalement, ma foi, pas mal de 
rSitssiie. 

II est cJair que la lechnologie 8 bits 
sculc cat unc technologic dcpasscc, Nc 
nous voilons pas la face : le point 
d'entree dans la gamme Apple, ie bas 
dc gammc d'Apple, c'cst Ic GS, 

Est-ce done la fin de 1 'Apple // 7 
tviriemment pas. D'abnrd, parce qn'il 
y a irois millions d'Apple // installds 
dans le monde ; c'egt plus que toute 
autre machine. C'est un £norme 
marcii6. Ensuilt; parce que le GS est 
un Apple //a part entierc. Le GS a die 
produii par Apple sur la demande des 
utiLisateurs qui voulaienl une machine 
h la fois modcrnc ci compatible. Ccite 
machine, j'en suis persuad6. a de 
giganlesques pussibilites (ave^-vous 
^pluch^ le moniteur du GS ? Ses 
possibilit6s sonores '.'). Les 
programmes, ics cartes, les interfaces 
pour le GS commencent it foisonner. 
Le 65832 (processeur 32 bits 
compatible patts-^-patte avec le 65816 
du GS) est en coure dc production. Les 
acc^lerateurs GS vont bientot soriir. 
Et ces machines 32 bits accSlSiees 
continueront h faire tourner I'lnteger 



Basic et h repandre la "philosophie 
Wozniak". Bref : Apple // for ever. 

D'auiant que la technologie Apple 8 
bits n'cst pas morte. Faire tourner 
AppleWorks avec un bureau de 1 
M6ga suflii ii 80% des besoins d*un 
utilisateur debutant. Simplcmcnt, 
I'Apple 8 hits; pa^se qiia5;iment dans le 
dumainc public, je veux dire dans la 
production Tai'wanaise h bas pri?t, 
rejoignant les compatibles IBM. Le 
successeur de I'AppIe //c se truuve 
desormais dans les supermarches des 
USA : un ordinateux compatible //e 
65C02, avec 1 Mega de Ram, souris, 
sortie RVB, drive 5,25' integre, 
acceptant les disques 3,5', avec pave 
numcrique, avec tous les interfaces du 
//c plus I'interface parallcle et un port 
d'extension, muni d'un processeur a 
3,6 Megahcrz (plus rapidc que Ic GS). 
C'est le LASER 128 EX de Video 
Technology, produii en Chine, 
vendu aux USA par Central Point 
Software (qui prodiiit Copy ][+ pour 
le // et le Mac). Son prix : 500 
dollars, soit moins dc 3000 francs. A 
ce prix, on a desormais un Apple // 
presque comme on a le ifilSphone. 
Apple // for ever^'one. . . 
Si Apple abandonne le //c, il 
n'abandonne pas ses utilisateur.s; : il a 
cree aux Eiats-Unis avec 3a 
cooperative A.P.P.L.E. une "Apple 
Programmers and Developers 
Association" (APDA) qui fouinji a 
tons, et pas seulement aux 
d6veloppeurs patenies, les 
informations, documentations, outils 
de developpemeni etc., necessaires 
pour programmer sur les machines 
Apple. Les plus grands devcloppeurs 
en sont mennbres tout aussi bien que 
le bidouilieuT de banlicue. Les outils 
sont vcndus a prix coutant, et bien 
entendu sans aucune garantie, 
puisqu'il s'agit parfois de versions 
pr^alables, de pre-Reieaie, de 
documentations provisoires 
polycopifes, qu'Apple diffuse des qu'il 
Ic pcut aupres de ceux qui en ont 
besoin. Cetie politique d'ouverture 
maximale semblerait, a premiere vue, 
donner des armes a la concurrence : 
elle a, en fait, toujours fait le succes 
d'Apple. Apple France s'y met aussi ; 
aprfcs le serve ur Apple (en 36,14), 



voici D.D.A,, Documentations 
Developpeurs Apple, version 
frangaise de I'APDA. C'est aupres 
d'elle que tout un chacun peut se 
procijrer les documentations 
techniques sur Ic GS ou sur le Mac. 

Tou jours plus : 

un IBM dans I'Apple ? 

Avec la carte PC Transporter 
d'Applied Engineering, le 
MS-Dos dcvicnt pour I'Apple // cc 
qii'etait le CPfK'i auparavant : un 
deuxifeme sysitmc d'cxploitation pour 
I'Apple. Cette carte n'est pas un 
cmulaleur, mais un veritable IBM 
dans I'Apple : elte a n&essitd un 
^norme effort de developpement et 
d'invesiisscmcni. Son prix jusiifie 
une 6tude un pen serree dc ses 
performances. 

Tout d'abord, en dehors de toute 
utilisation du MS-Dos, cettc carte, qui 

entre dans n'iraporte quel slot sauf le 
slot 3 ou le slot auxiliaire, est a la 
fois urte extension memoire type 
Apple (768Ko) ct unc carte controlcur 
de drives universelle pour I'Apple : 
ellc pilote aussi bien les lecteurs GS 
3,5' (mais pas les Unidisk //c ct //c) 
que les drives 5,25' 40 pistes double 
face type IBM vendus par Applied 
Engineering (cllc formate les 
disquette.s 5,25' en 36nKo son.*; 
ProDOS), ei elle permei de chalner 
cinq lecteurs en taut. 
Bien entendu, c'est aussi un 
compatible PC : microprocesseur Nec 
V30 a 7,16 MHz (trois fois plus 
rapide que I'IBM), 640Ko de Ram 
possibles en mode IBM, tous les 
modes video CGA sur votrc moniteur 
Apple, coprocesseur arithmetique en 
option, bref on pcut faire tourner sur 
I'Apple I'adaptation sous MS-Dos de 
Visicalc appelee Lotus 1-2-3. 
Les avantages principaux de cette carte 
sont bien entendu dans I'integration 
qui permet d'utiliser tous les 
periph^riques de I'Apple : carte 
horloge, imprimantc, clavier du 
//e-IIGS (les touches dc fonciion IBM 
etant rcmplacees par des combinaisons 
avcc les touches it), souris, moniteur 
video, son. Vous pouvc^ stockcr des 
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donnees et programmes MS-Dos siir 
tout disque format^ en ProDOS 
(5,25V 3,5', disquc dur, etc.)- La carte 
permer msme dc lire et 6crire des 
disqucties 3,5' formiilees en MS -Dos 
avcc un simple lecleur 3,5' Apple 
tj-pe lins. 

Mais... 11 y a ce que les publicit^s ne 
disent pas : la carte PC Tiansponer ne 
pcnnct pas dc formater en MS-Dos les 
disquWtes 3,5' avec un lecteur Apple 
3,5" ni de d6marrer direclement ces 
disquetles. II vous faudra done avec la 
carte le duo-disk 5,25' type IBM 
vendu par Applied Engineering pour 
d^marrer le MS-Dos, El il est 
indispensable d'avoir acces a un 
compatible IBM muni d'un lectcur 
3,5' pour formater en MS-Dos les 
disquettes 3,5'. 

Faites les compies : la carte avcc 
640Ko, plus Ic kit d'installation, plus 
le Dno-Disk 5,25', tout cela fait 1U58 
dollars sax prix d' Applied EugiiieeiiJig 
pour mettre le MS-Dos dans le GS, 
Rajoiitons le fait que la carte en action 
lire 600 mA, et 1075 mA avec le 
coproeesseur arithmetique, et il est 
pratiqwement indispensable de changer 
I'ali mentation du //e puur telle plus 
puissante {110 et 220 V) vendue 69 
dollars par Applied Engineering. C'est 
en fait le prix d'une configuration 
equivalente h base de 
compatible-lambda made in China 
veiidu dans les supcrmarches, 
L'avantage est ^videmment de n'avoir 
qu'une seule machine sur son "bureau, 
oiie seule imprimante, etc., el de 
pouvoir 6changcr les fichiers entre les 
systfemes d'exploitation. 

...ou un Apple 
dans I'IBM ? 

Pli2t8t que de mettre a vos frais dans 
voire Apple I'ordinateur du pauron, il 
serait peut etre matiii de faire nnettre k 
fias frais un Apple dans son IBM : la 
cane Tratkslar 128 de 
Compatible Peripherals met un 
//e 65C02 128K dans un IBM ou 
compatible, Elle utilise les drives 
5,25' IBM pour lire les disqucs Apple, 
y compris les disques proteges (sauf 
ceux qui utilisent les dcmi-pistcs). 
Elle utilise les peripheriques de I'inM 
pour TApple, sauf le Joystick (port 



pour joystick Apple sur la carte), eEe 
pcrmct les transfcrts de fichicrs 
ProDOS/MS-Dos. Et elle ne coute 
que 300 dollars. Mais ce n'esl pas uii 
GS, ct vous n'aurez pas les caract&res 
accentues fran^ais sur I'ecran. 

.„ou line machine 
d'avenir ? 

A chacun done de faire ses choix. Le 
mien est ni I'un ni I'autre : un 
ordinatcur dans un autre est unc 
machine bloqufie, qui ne pourra plus 
^voluer, et aussi bien ITEM PC que 
I'Applc //c sent des machines 
lechnologiquement depa.%s6es, 
d'ailleurs abandonnfcs toutes deux par 
leurs constructeurs respectifs. Ce ne 
sont pas des investissements 
d'aujourd'hui. 

J'avoue figaleinent u'dprouver qu'une 
jouissance irfes mod^rSe & la 
compilation en DBase HI, Et plutoi 
que d'udliser Lotus 1-2-3 ou Word 
Perfect sur IBM, essayez done Vip 
Proressional deVip 
Technologies, parfait clone de 
Lotus 1-1-3, mais avec I'interface 
graphique-souris du GS, ou... Word 
Perfect dc Word Perfect 
Corporation sur GS. Ce.s denx 
programniies existent d'ailleurs aussi 
pour //c-//c (Vip Professional 
necessitant una exsension memnire 
type Ramworks ou Moltiram). 
Pcut-ctrc la carte PC Transporter 
serait-elle un bon mnyen de mettre a 
niveau un //e qui n'aurait que 12SKo 
ct des Icctcurs 5,25' : mais c'est le 
merae prix qu'une unit^ cenirale de 
GS. La seule macbiiie qui peut 
concuirencer un GS, c'est le Mac, 
Bon, je sais, le patron... Eh bien, 
faltes-lui faire un tour au Sicob ou a 
la prochaine Apple Expo. Unc 
entrcpfise ne peut pas se permettre 
longtemps sans dommage 6conomique 
ce qui peut au contraire ttre. I'imcrct 
bien compris du partieulier : utilizer 
unc informatique obsolete. 

Le niange-disques 

Depuis le temps qu'ou Taiiendait I 
y est, il est arriv^, il est l& : Merlin 
8/16 de Glen Bredon chez Koger 



Wagner Publications est sortl ! 
Enfin la possibilitd dc programmer en 
assembleur de fagon pratique pour le 
GS, flnie la galfcre d'APW/OKCA ! 
Pourquoi ne pas en parler dans la 
nibrique "16 bits" ? Mais parce qu'il 
marctie aussi sur le //c et le //e : vous 
avcz bien lu, non setdement le Merlin 
8. demiSre version du Merlin-Pro sous 
Dos et ProDOS, mais 6galcment le 
Merlin 16 bits, tout cela marche sur 
tous les Apple // d'aujourd'hui. Bien 
entendu, il vous faut precis6ment un 
.4pple // 88 : microprocesseur 65802, 
lecteur 3.5. mdmoire. Voir la rubrique 
"sous Ic capot", 

Entre auires. cela signifie qu'il est 
sous ProDOS 8 ct ne s'occupe pas 
plus qu' AppleWorks du graphisme 
GS. Faudrait-il en conclure que meme 
Glen Bredon estime que Ic ProDOS 
16 n'est pas irts au point, et que le 
graphisme GS ne fait que ralentir les 
choscs dans les applications 
s6rieuses ? Mais nnn voyons, 
puisque pr^isSment il vous pennet 
d'dcrirc quant h. vous des applications 
sous ProDOS 16, des accessnires de 
bureau, de vous r^galer avec les oudls 
du GS. Un €diteur de liens plus rapide 
produisant du code relogeabie. un 
dditeur plein 6cran, des bibliothfequcs 
de sous-routines, des bibliodi^iques de 
macros (iocluant des macros d'accfes 
auK outiis as), que nous faut-il dc 
plus ? 

Eh bien, nn a.<:!!embleur et un dditeur 
de liens co-r6sidents en mcniuire avec 
I'dditcur, qui relient et assemblent 
jusqu'a 13 000 tigne.^; de code par 
mtniiie, sans qu'il soil n^cessaiie de 
passer par des modules scpares (suivez 
mon regard.,.). Et aus.si un Sourceror 
16 bits, ce magnifiquc desassenibleuf 
qui a autant fait pour 1' Apple que le 
Locksmith ce propos : la dernifere 
version du Lockismitli, 6,0 
Revision C, d'Alpha Logic 
Business Systems, fonctinnne sur 
le GS). Sans compter la compatibility 
avcc tous les sources Merlin 
existanis, el l,"t poRsibilitd de charger 
et assembler !es flchiers APW avec un 
minimum de travaiil d'Sdition. 

Voiia le genre d'outils qui remet les 
montres h I'hcurc et les choscs ^ leur 
place : le langage priviI6gi6 de 
I'Apple //, c'est I'assembleur, n'en 
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d^plaise aux adeptes d'autres jargons. 
C'est [ui qui a fait et qui fera les plus 
grands prugraiiiines &l les plus grands 
succes de 1' Apple //. Apple // for ever, 
cela passe par Merlin lor ever. Avec 
Merlin 16, TML Pascal et TML 
Basic, I'avenir du GS est assure. 

Docuiuax, dc Signum 
Microsystems, est exactement le 
genre de programmes qui me pousse a 
ecrire dans ces colonnes. Un cout 
ridicule (25 dollars avcc la 
documentation sur le disque), une 
interface uiilisateur parfaite, 
implantable, pas dc protection, des 
possibilit^s eJitranrriifiaires. et... 
personne ne le connatt ! Que faii-il ? 
D'abord, il compresse h 50% ies 
fichiers texte.s. k 40% les fichier."! 
tralietneni de texte ei base de donnto 
d' AppleWorks, ct les decompresse 
en.suiie bien sm. En quelques 
comiimiiicaiiojis avec InierPom's, je 
le rembourse intSgratennent. Au lieu 
de copier un fichier pour le ranger, 
compressez-le : cela n'est pas plus 
long, et de touts fa$on Documax vous 
permet de lire ces fichiers et de 
UravaiUer dcssus, Etani sous ProDOS 
8, il toume sur //e, //c, IIGS et accepte 
bien entendu tous les disques reconnus 
par ProDOS, 

Ensuite, il permet de cherchcr unc 
r6f6rence, un nom, un morceau de 
phrase, un numero de telephone, dans 
I'ensemblc de tous les Gchicrs tcxtc 
ou AppleWorks que vouS liii indiquez, 
compresses ou non (bien eniendu, ii 
s'occupc lui-m5mc dcs catalogues 
ProDOS : vous n'avez jamais k taper 
un nom de fichier). U vous cree si 
vous le voulcz un fichier de references 
sur n'importe quel sujet avec nom de 
fichier, texte recherche avec son 
contcxte, numdro de ligne. Vous 
faites ensuite de ce fichier une base de 
donnfees, ou bien vous coupez et 
toiler I'information dans d'autres 
fichiers. II segmente et fusionne les 
fichiers & volont6. Il gere les 
catalogues ProDOS, y compris I'ordre 
des fichiers dans le catalogue. II est 
sain de temps en temps de nous 
f appeler que rinfoimatiquc ne sert pas 
It cliquer des souris, mais ^ trailer et 
manipulcr a noire guise I'information. 
AUez, chichc : trouvez le nom et le 
prix d'un progranrsme qui en fasse 
autant sur luie autre machine ! 



Sous le capot 

Pour un prix infdrieur a celui d'un 
lecteur 3,5', vous pouvez aujourd'hui 
metire un disque dur 20 Mcga.s dans 
voire Apple. Vous avez remarquc que 
les clones IBM sont munis de disques 
dors hon marche. Evidemment, un 
peiit malin a r^alis6 une carte 
d'interface entre ces disques durs et 
i' Apple JL+, //e, IIGS. 11 s'agil de la 
carle Megaboard dePerlin 
Electronics, La carte coute 200 
dollars, et supporte ProDOS. DOS 
3.3, Pascal, CP/M. Pour 500 dollars 
{2 750 F au cours d'aujourd'hui), vous 
avez la carte et un disque dur de 20 
Megas. Reconnaissons ccpcndant que 
la carte Spe^disk, si elle ne fait qu'un 
Mega, est beaucoup plus rapide, 
silcncicuse ct sans doute durable 
(aucun element m&anique). 

Savez-vous que vous pouvez pour 25 
dollars meltre un processcur 16 bits 
dans votre //e oti //c ? H s'agit dti 
mkroprocesseur 65802, vendu 
par Roger Wagner Publishing, 
et prr»duil par le Western Design 
Center, concepteur du 65816, le 
microprocesseur du GS. Ce 
microprocesseur reconnait loutes les 
instructions el tous les modes 
d'adressage du 65816, a les mSmes 
modes emulation et natif, mai.t; hien 
entendu ne fait pas I'adressage 
memoire sur 32 bits par page de 
64Ko, et ne voos met pas un GS dans 
le //c, II fait tuurncr les prognimmes 8 
bits existants, plus ceux sp&ialement 
ficrits pour lui (un seul aujourd'hui : 
Merlin 8/16). 11 sufflt d'enlever ie 
65C02 et de mettre a la place le 
65802. 

L'autre solution consiste h acheter une 
carte acc61erateur Transwarp 
d'Applied Engineering pour te 
//e, avec un 65802 intdgre. Roger 
Wagner la vend pour 245 dollars, et 
votre //e tourne plus vite que le GS 
(si !). Evidemment, Zip-Chip (voir 
Pom's 33) est moins cher et ne prcnd 
aucun slot : mais ce n'est pas un 
65802, il ne fait pas tourner Merlin 
16. 

Toujours pour metire voire //e ou //c 
a niveau, il faut etendrc sa mdmoirc. 
Si vous avez un nonvean //c. 



poussez-Ie k un Mega (voir Pom's 
33). Si vous avez un ancien //c, 
v^rifiez qu'il a les Roms pour !e 
lecteur 3.5', sinon faites-le mettre a 
niveau par Apple. Pour I'etcndrc a un 
M6ga, les seules solutions seront 
ensuite la carte Z-Kam d'Applied 
Engineering ou la carte Multiratn 
CX de Checkmate Technology 
(sur lesquelles vous pouvez ajouter 
unc carte 65816 pour faire tourner 
Merlin 16). 

Si vous avez un //e, vous pouvez 
I'^tendre avec une dcs cartes qui se 
mettent dans le slot auxiliaire 
(Ramworks d'Applied Engineering ou 
Mulliiam //e de Checkmate 
Technology), Ces cartes ont 
I'avantage de remplacer la carte 80 
colonnes, done de ne pas prendre un 
slot de plus, Elles ont I'inconvenient 
d'etre technologiquement depass6es el 
de ne pas etre portables sur le GS, 
Le plus intdrcssant, cc sont sans doute 
les carles au standard Apple, 
("Slinky"), qui sc mettent datis 
n'importe que! slot du ][+, //c, IIGS 
(sauf le slot 3). Elles sont portables 
sur le GS, sont rcconnues par 
AppleWorks pour y ctcndrc son 
bureau. Choisissez entre la carte 
Apple (chfere, mais Apple), ia 
Ramfactor d'A p p 1 i e d 
Engineering qui est la meilleure, el 
la carie Sprintdlsk d'AST qu'on 
trouve h des prix brades en ce moment 
(179 dollars par exemple avec un 
Mgga installs chez Microtech 
Consulting Company). 

L'autre compldmcnt d'un Apple // 
pour le mettre I niveau, c'est le 
lecteur 3,5', Le //c est normalemem 
muni dc ccltc capacitc. Poiu" Ic //c, il 
faut une carte d'interface. Apple nous 
propose sa carte pour runldisk 3,5". 
Mais cc lecteur ctant assez chcr, on 
peut lui preferer la carle Universal 

Disk Controller de Central 
Point Software pour ][+, //e, IIGS. 
Cette carte a I'avantage d'accepter 
aussi bien les lecteurs 5,25* Apple oa 
compatibles, que les Unidisks 3,5' 
d'Apple, que les lecteurs 3,5' 8OOK0 
compatibles Mac, qui sont tres bon 
marche, que les lecteurs 3,5" simple 
face 4OOK0 dcs vieux Mac, qu'il faut 
laisser aux dinosaures. Pour 261 
dollars (plus le pon) chcz Triad 
Software, mon foiirni.sseur favori, 
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vous aurcz unc carte et un drive 
8OOIC0 qui lira les disqueites GS sans 
probleme, fera Lourner Merlin 16 ei 
rcntrcra AppleWorks, Ics acccssoircs 
Pinpoint ei les applications TimeOiit 
sur la m6me disquette, et dgmarrera 
automaiiquement sur un //e 65C02, 

Cette carte a cependant quelques 
incotivcnients : d'abord, meme si elle 
peut theonquement rentrei dans tous 
les slots sauf le slot 3 du //e, elle 
deborde beaucoup a droiie. En 
cons6quence, cllc est en fail 
pratiquement r^servife au slot 2 du //e 
et au slot 7, ce qui marche 
impcccablcmcnt sous ProDOS, mais 
pas sons Pascal. Pnsiiije, elle accepte 
les drives Apple 3,5' du GS, mais 
n'ob6il pas h rejection manuelle (ce 
qni n'est pas grave : c'cst si Tacilc par 
programme). Enfin, elle ne reconnaTt 
pas les disquettes proldgies du GS 
(raison de pins ponr ne jainais uliliser 
ua programme protege sur GS). 
Ajouions que eomme les drives 
8UOK0 sont pilotes par la carte et pas 
par I'unite ccaualc, elle n'accepte pas 
les programmes qui, comme 
Diversi-Cache. modilient ies routines 
de leciuic-^critme. Bill Basham a 
d6couvert pas mal de bugs dans cette 
carte, mais ils ne vont jamais jusqu'a 
la perto d'un fichier en mcmoirc ou la 
ruine d'une disquette, C'est done 
malgr6 tout la solution de loin la plus 
ccoiiomique pour tout Apple II 
demuni de tec{eur3,5'. 

Voila done votre //e ou //c enfin h 
niveau, vous avez un "Apple // 88". 
Ccti dit, failes vus toniples : une 
carte accelerateur, plus un 65802, plus 
une interface pour lecteur J, 3', pltis 
une carte m6moire de 1 M^ga, c'est 
vrai, 5a ronfle, et c'est au point. Mais 
c'est tres en-dessous dun GS, et <}a 
n'cst pas un GS, pour un prix qui lui 
est bicn voisin 1 

Patchworks 

Void comment raccourcir le temps de 
chargcmcnt d' AppleWorks 1.4 pour 
ceux qui le chargent depuis un disquc 
3.5, un dur, ou un disquc Ram, et/ou 
qui ont unc horlogc dans i' Apple (GS 
et autres) : 

UNLOCK APLWORKE . SYSTEMJ 

BLOAD APLWORKS. SYSTEM, AS2000, 



XSYS-J 

POKE 14471, 45J (Plus de «Pressez 
wne touche pour continuers) 

POKE 1415f,2UK : FUSt I-^ISS, 

19-1 (Nc dcmandc plus la date) 

BSAVE APLWORKS. SYSTEM, S$?f(RO, 

Le patch suivant pentiet aux tieureux 
pruprietaires d'un GS et d'unc carte 
Ram 1 Mega type Apple "slinky" 

(cartes Apple, Kamfactor, A5T 
Sprintdisk. etc.) de fairc croire h. 
AppleWorks 1.4 qu'il est sur un //e et 
non sur un GS, le faisant ainsi se 
charger et mctirc son bureau dans ceile 
carte, en n'occupant que le Bank dc 
la Ram GS. 

UNLOCK APLWORKS. SYSTEM J 
BLOAD APLWORKS. SYSTEM, A$2000, 

T$FF-I 
POKE 13609, 14J 

BSAVE APLWORKS. SYSTEM, AS2D00, 
T255J 

Rcgardez k cette occasion le code que 
vous changez, et vous verres 
cotnmeni AppleWorks s'y prend pour 
rcconnaitrc qu'il est sur un GS. 
Voici comment {Merci Dominique 
Ottello) pe.rmettre a AppleWritcr 
ProDOS (version frain^aise) de 
marcher avec le port imprlmante 
integre du GS en couri-circuitant sa 
routine d'initialisation du port sdrie. 
C'est done h. vous qu'il appartient de 
configurer cc port en passant par le 
tableau de burU (<3-conu:ol-esc). Pour 
cela, il faul d'abord avoir remplacc le 
ProDOS de la disquette par un 
ProDOS 8 plus recent qui autorise les 
interruptions. 

PREFIX/RWJ 

BLOADAWD.SYS, T$C,A$2000J 

CALL-lblJ 

4U98;SjOJ 

■SFSArlOJ 

^F91 :13J 

BSAVE AWD.SYS, r$0C,A$2000J 

Encore une partie 
et j'^teins 

Gaidar un vieux ][+ avec un joystick 
pour les jcux des enfants n'cst plus un 
bon calcul : les grands du jeu sur 
Apple (Broderfaund, Epyx) sortent 



maintcnant systemaiiquement de 
magnifiques jetix d'action (arcade et 
simulation), de superbes animations 
en Double Haute Resolution. Aprfes 
Air Heart de Broderbund, voici 
California Games d'Epyx, qui 
vous permet de faire du surf, du 

velo-cross. du skate-board, du 
"freesbee", etc, Sous I'Apple, la 
plage. . . 

— Range-moi cette. disqtiette 
loin d'ici, lu vois bien qtie jc 
iravaille ! 

Aprcs les divcrscs s6rics dc simuladon 
des leiix Olympiqnes d'hiver et d'et^, 
la Double Haute Rdsoluiiou va nous 
offrir des simulations encore plus 
r6a!istes. puisquc nous aliens rciairc 
nos parties de sports des rues, 1& ou 
nous jouons sans arbiire avec le 
copaln qui ne sail pas rattraper une 
balle coutre celui qui ne sait pas la 
lancer (Street Sports Base-Ball, 
Basket-Ball, etc., toujours 
d'Epyx). 

— Ne louche pas S ce joystick et 
husse-moi ecrire mon cirtit;3e ! 

Bien entendu. la Super Haute 
Rdsolution du GS permet aussi de 
magnifiques animations et 
Simulations sportives : essayez done 
World Games GS, du mcmc 
Epyx, decidement tres en forme en ce 
moment. Mais cela n'empecJic pas les 
fran^ais dc travailler aussi a dc bons 
jeux sur Apple // : on parle beaucoup 
d'une version frangaise pour Apple // 
de I'Arkanoid dc TAlari, ct Froggy 
Software nous offre des aventures 
in^dites avec Le justicier du 
batiut. 

Les jcux de I'Arlesienne ; Ultima V 
et Wizardry IV. Cela fait 
longtemps qu'on les aiLeiiJ, les 
publicitcs sont parues, mais, a I'heure 
ou j'^cris ces lignes, je ne cnnnais 
pcrsonne qui ait r^ussi k acheter autre 
chose qu'unc promcssc dc vcnic. 
Curieuse stray5gie commerciale. 

— Bon, puisqiie c'est comme 
5a, je te prends au surf et je 
pulverise ton high score ! 
Bon sang, ou as-tii mi.? la 
disquette dc Califoniia 
Games ? J'avais dit qu'elle 
devait toujours rester a cnte 
de I'Apple!!! 



Pom's n° 34 



65 



16 Bits 

Si vous avez un G S , prenez 
lendez-vous avec voire revcndeur : il 
vous rcmctlra la dcmicro version du 
syst&me. (3.1. avec 1?. Finder) e.t voiis 
mettra ^ niveau voiie mattiine 
(nouveltes Roms, nouvelle chip 
video) si son numSro de sSrie esi 
ijiKiicur a C725XXXXX. Tout cela 
graluilcment. Mats bicn entendu ne 
jetez rien : ni I'ancien sysitme ni les 
ancicnncs Roms. Certains 
programmes ne marchcnt pas avec les 
nouvelles Roms, La solution ; 
charger les ancicnncs Roms cn Ram, 
changer les vecteurs. Lecte.urs 
GSphiles, au travail! Nous comptons 
sur vous. 
Question ; 

Qu'est-ce qu'un Macintosh 7 

Un ordinatcur assez ancien de la 
society Apple, en noir el blanc dans 
ses versions grand public, mais dont 
Ic mdritc ful d'avoir permis la 
realisation d'un assc/. grand nomhre de 
dessins ci de fontcs graph iques pour le 
nouvcl ordinateur couleur de cette 
socid!^, 1' Apple IIGS. 

Explication : 

Vous avez du rcmarqucr, au milieu 
du las de polycoptSs et de disqueites 
qui accompagnail la documentation 
technique du GS, une disquelte un pcu 
specials ; ellc ne marchait pas. C'est 
en ellet unc disquciie pour Macintosh, 
dcstindc a vous pcrmeiure dc r&upcrcr 
sous ProDOS les fontes graph iqucs, 
les images MacPaint, et les fichiers 
data divers du Mac. Bicn cnicndu, la 
conversion fonctionne aussi dans 
I'autre sens, mais les fichiers GSPaint 
ont des coulcurs bicn pales sur un 
Mac Plus. 

Quelqucs conscils pour pillcr un 
Macintosh : choisisscz-le avec 
sufiisammcni dc mcmoire pour avoir 
urt disquc Ram consequent, F.mpnriez 
voire drive GS avec vous pour faire un 
dcuxifcme drive au Mac s'ii n'en a pas 
ddj^ un. Kmporie'/ un stock dc 
disqucitcs format&is en ProDOS. 

La disquette conlicnt aussi une 
application pour Ic Mac appelfie 
"Emulatcur Apple II GS" : Pom's a 
obtenu d'Apple I'assurance que vous 
pouvez donner cette applicalion aux 



possesseurs de Mac. Quand vous aurcz 
fini de. soutirer pour votre GS toufe la 
substantilique moelle du Mac de votte 
ami ou de voire patron, remerciez-le 
en lui laissanl cette applicalion el 
regardez-le I'essayer. . . 
Vous I'avQz remarque. si vous voulez 
rcconfigurer voire disque Ram et faire 
prendre en compie cette modification 
immediaicment a votre machine, le 
seul moyen, apres avoir fait le 
necessairc avec le tableau de bord. 
est... dc i'ctcindrc. Lc OS refuse le 
moindre risque de perdre un fichier du 
disque Ram. Commc il esi aussi 
protcgd contre les micro-coupurcs 
d'clectricite, vous avez le temps de 
prendre un caf6 avani qu'il oublie 
recllement ce qu'il a en memoire et 
que vous puissiez le rallumer. 
Hcureuserneiu il y a uu auue nioyen ; 
faites d-control-opiion-rcsct, et 
I'autotest de voire machine demarre. 
Aitendcz un peu, puis faites 
d-conlrol-reset pour rediimarrer le 
disque. Cette fois-ci, le GS vous 
obeit. Puisqu'il y a deja un 
redcmairagc a chaud ct un rcdcmarragc 
a froid , ccci doit eire un reiit*marrflge 
glacial... 

Roger Wagner m'a dcrii truis pages 
pour expliquer les raisons et formes de 
sa protection de Softswitch. En gros, 
il s'agii d'eviter, s'agissant d'un 
programme que Tuiilisateur met sur 
louies ses disquellcs, une diffusion ou 
un passage involontaircs dans lc 
domaine public. Tout est copiablc, 
mais finsiallalion du proj;ramme met 
un signc dans voire machine pour 
qu'il ne puisse pas marcher sur une 
autre. 

Ceci dit, la dcmierc parution dc Roger 
Wagner, Merlin 8/16, est un 
prugrammc normal (non protege). El 
si quelqu'un dcvait craindrc le passage 
dans le dnmaine public, c'est hien 
Bill Basham, de Diversified 
Software Research, dont lc 
Diver si-Cach e, qui s'inicgrc 
caneujcut au PruDOS 8, accelerc de 
fagon considerable la lecture et 
rccriturc sur le disque 3,5'. Eh bicn, 
ce prograniiue est diffuse en 
Shareware, avec d'autrcs 
indispensables (Uiversi-Copy, lc 
plus rapide dcs copieurs 3,5', 
Diversi-Kfiy, qui met dc; macros 
partout, Di versi-Hack, un 



mini-Softswitch) : vous pouvez 
copier et distribuer gratuitement la 
disquette (la documentation est sur lc 
disque). Si le programme vous platt, 
vous eies invilS h payer direclemcnt h 
I'atiteur. J'ai achclfi Divcrsi-Copy, ce 
qui prouvc que I'iddc est bonne. Pour 
Diversi-Cache, j'aimerais qu'un lectcur 
fassc la comparaisoii avec le 
programme de cache foumi avec la 
carte OS-Ram d'Applied Engineering. 
La place mc manque pour faire 
aujourd'hul un tour d'horizon complci 
des langages sur le GS (j'ai ddnomhrd 
jusqu'ici, cn ne comptant que les 
iangages 16 bits, au moins Irois 
Pascal, deux Forth, cinq Basic, un C. 
plus les asscmbleuis). Disons 
seulcmcnt qu'Apple a fail son iravail 
en sortant son interprcteur usBasic, 
disponible chcz D D A , fort 
ressemblani au Business Basic de 
I'Applc ///. Et parlons de I'autre, Vous 
qui commenclez a vous mcttrc au 
Pascal a cause de TML Pascal, mais 
qu! rcgretliez de ne pouvoir vraimcni 
parlcr cn Basic a votre machine, 
r^jouissez-vous : le TML Basic est 
en venie. Attention ; ce n'est pas un 
simple compilatcur qui vicndrait cn 
complement d'un intcrprelcur, com me 
C'diait le cas avec TApplcsoft. S'il est 
vrai qu'ii compile les programmes du 
TiSRasic, el que la pltiparl dcs 
programmes 100% Applesoft scront 
compilablcs aprcs un pclil nombre de 
modificalions, TMI. Basic est un 
ensemble dc programmaiion complct. 

Sachant que TJViL Basic compile trcs 
vite, en mcmoire, et lance aussi tot !e 
programme compile, sachant que son 
debugger integre vous rcnvoie, cn caS 
d'eiTeur, iinmcSdiatemcut dans reditcur, 
k la lignc fauiive dc votre programme 
toujours en memoire, avec un 
message d'crrcur explicilc, la 
difference avec un interprcteur devient 
prcsque invisible pour lc 
programmeur. I! n'y a que la vitcssc 
d'cxcculion du programme qui change, 
mais dc fagon faramineuse. Bicn 
cnicndu, il donne acc6s aux ouiils dc 
la Rom, permci la programmaiion 
struciurce ct la rccursiviic, etc. 
L'inlcrfacc avec lc TML Speech 
Toolkit pcrmct dc faire pnrler le GS. 
La documeniaiion esi exccUcme. C'est 
un TML, ct c'est un GS : done, 
souris, couleurs, couper-coilcr ii 
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travers quaue programmes chacun 
dans sa fenctre, elc. De quoi plaindie 
sincerement les paiivres 
programmcurs MS-DOS. mSme 
lurbo, 

A cssaycr : la carte Memory Saver 
de Checkmate Technology, qui 
pour 150 dollars transfonne le disque 
Ram dt n'importc quelle carte 
m^moirp, dir siol aiixiliaire dn TiS en 
disque Rom. Si vous avez essay6 
Movie Studio cl VS/Com dc 
VersionSofl. 6crive.z-moi. Mcme 
chose pour Griboullle GS de 
Madeleine Hodc. 

V 

A lire 

Les ouvrages sur le GS comtncnccnl a 
foiiionner. II y a bicn enicndu de louL 
Pour ma part, je vous conseille leS 
suivants : 

- Roger Wagner ; Apple IIGS, 
Machine Language for 
Beginners, chcz Roger Wagner 
f tiblishing ; 

- David Eyes et Ron Lichty : 
Programming the 65816 
including the 6502, chez 
Brady Book / Prentice Hall Press ; 

' Gary LiLile : Exploring the 
Apple IIGS, chez Addison- 
Wesley. 

- Michael Fischer : Apple IIGS 
Technical Keferenee, chez 
Osbomc-McGraw Hill. 

- Gary Bond : Inside the Apple 
IIGS. clicz Sybex. 

D'autre part, Apple public pen a pen 
cticz Addison-Wesley scs diftcrcnis 
manuels pour le CS. Cc soni de vrais 
livres, bicn plus utili.=!ablcs que les 
millieri; dc pages phoiocopiccs doni il 
fallail se contenler jusqu'ici. Voire 
patience sera rccompcnscc si vous 
avcz aitcndu pom achcicr: 

- Apple Computer ; Technical 
Introduction to the Apple 
IIGS, clicz Addison-Wcsley. 

- Apple Computer : Apple IIG S 
Firmware Reference, chez 
Addison-Wcslcy. 

- Apple Computer : Apple IIG S 
Hardware Reference, chez 
Addison-Wcslcy, 

Apple Computer : ProDOS 16 
Reference Munual, chnz 
Addiiiuii-Weslcy. 



DDA dcvrait pouvoir fnumir certains 
de ces uuvrages : deinandez-lui sun 
catalogue. Sinon, essayez avec 
i'AFDA. Sauf pour Sybcx, les 
editcurs ue diffuseiil pas directeuienL 

Pom's a decouveit rexistence d'un 
sympathique famine de bonne facture 
pour ICS toqu6s de TApple // et du 
Mac, un produit du Sud ct dc 
I'association Sun Data appel^ 
"Ampersand". Aux rubriques 
habitucllcs dcs fanziincs (solutions dc 
jeux, comment "proteger" vos 
disquctles), il joint des mformations. 
dcs revues dc logicicis, ci dcs articles 
d'initiauon. II propose un catalogue de 
"Freeware" is la carle pour GS ci Mac, 
et offrc aux Marscillais I'acccs a un 
serveur gratuit (91 79 30 60, code 
"&■•). 

Potn's a Cgalemcni rc?-u le faire-pan de 
naissance d'un futur confrere, une 
revue frangaise specials GS et Mac : 
GS Muj^azint;. II est pr6vu que 
chaque numdro coLite 50 F, ct soil 
accompagn6 d'une disquette 800 Ko (en 
kiosque, to sera uiie disquette Mac, 
que vous cchangcrcx par la poste avec 
la disqucLic GS. Par abonnement, 
vous choisirez eiitre disquctie GS ci 
Mac, mais vous aurez le droit de 
I'echangcr contre I'autre). La disquette 
conticndra dcs programmes en 
domaine public, Shareware, et dcs 
demonstrations de logiciels. La revue 
devrait etre orieiuee principalemcnt 
sur !es services a rutilisaieur et au 
consommaleur. HaptSme prcvu a la 
u'iii-fcviier. 



Adresses 

A.P.D.A 

290 S.W. 43rd Street, Renton, 
WA 98055, USA. 
A.P.P.L.E, - Coop 

290 S.W. 43rd Street, Renton, 
WA 98055, USA. 

Alpha Logic Business Systems 

4119 North Union Road, Woodstock, 

IL 60098. USA. 

Applied Engineering 

P.O. Box 798, Carrollion, 

TX 75006, USA. 

Deagte Bros 

6215 Ferris Square, Suite 100, 
San Diego, CA 92121. USA. 
Broderhund Software, Inc. 



17 Paul Drive, San Rafael, 
CA 94903, USA, 
Central Point Software 
9700 S.W. Captlnl Highway. 
#100, PorUand, OR 97219, USA. 
Checkmate Technology 
509 SouUx Rockford Drive, Tempe, 
Arizona 852iS I. USA. 
Compatibles 
periphericals, Inc. 
6363 Taft Street, Suite 305, 
Hollywood, Honda 33204. USA. 
D.D.A. 

Tcchnopolc - rue M. Faraday 
78180 Moniigny Le Eretonneux. 

(1) 30 45 26 62. 
Diversified Software Research 
31880 Bunker Hill, Farmingion, 
MI 4801}i'2728. USA. 
Epyx. Inc. 

600 Galveston Drive, Redwood City, 

CA 94063, USA. 

Froggy Software 

33, avenue Philippe- August© 

75011 Paris 

■a 43 5S 25 98. 

GS Majrazine 

320, true Saint Honore - 75001 Paris. 
Gribuuille 

16, rue dc Poulcs - 67000 Strasbourg, 
Microtech Consulting 
Company 

206 Angic Drive, Cedar Falls, 

lA 50613, USA. 

Mindscape, Inc. 

3444 Dundee Road, Northbroolc, 

IL 60062, USA. 

Perlin Electronics, Inc. 

7394 Callc Real, Suite B. Goleta, 

CA 93117. USA. 

Pinpoint Publishing 

5901 Christie Avenue, Emeryville, 

CA 94608, USA. 

Roger Wagner Publishing 

105O Pioneer Way. Suite P. 

El Cajon, CA 92020, USA. 

Signum Microsystems 

120 Mountain Avenue, Bloomfield, 

Connecticut 06002, USA. 

Sun Data-Ampersand 

16, nic Julia - 13005 Marseille 

Sy bcx 

6-K, impasse dn Cure - 75881 Paris 

Cedex 18 - « 42 03 95 95 

TML System 

Customer Sales Department, 

8S37-B, Goodbys Lxccuiivc Drive, 
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Jacbsonvilic. Florida 32217, USA. 
Triad Software 

125 North Washington Strecl. 
Papilliuii, NEbraska 68046, USA. 
VersiuiiSoft 

94, Tuc Lauriston - 75116 Paris 




Syst^tnes d'exploitation et 
systfemes de protection sur 
Apple //, par Ican-Pierre Lagrange 
Edition Micro-application - 179 F 



Qui n'a jamais rcve de decouvrir les 
secrets des protections de 
programmes. Voici done un livre qui 
devralt assou\'ir lappelit de ddcouverte 
des chevronnds de I'Applc //. Que les 
^diteurs de lug!t;iels soienl neanmoins 
rassurSs : il s'agit ici de montrer 
comment protcger les programmes et 
leurs disquctles ; il n'est jamais 
question de detailler le travail inverse. 
'D6plombeurs' s'abstenir ! 

Avec un sujct de tr&s haut niveau 
technique commc colui-ci, il est 
indispensable de posseder iine 
excellente connaissance prSalable de 
I'asscmblcur ct des systemes 
d'exploitation de I'Apple // (DOS '^.^ 
Oil ProDOS). II ne sera jamais 
question de faire un apprcniissage de 
la pratique dn 6502 : le debut du livre 
dfemaire sur les chapeaux de roue a la 
suite continue k la mcme vitesae. 
Au menu, on trouve d'abord les 
dditeurs habiluels de disquette tcls que 
CIA ou Watson. Suivcnt une 
description des m^ihodes 'pr^histo- 
nques' de protection en mdmoire d"un 
programme {en commcn^ant par 
rediriger les vecteiffs du Reset). Puis, 
les protections sur disque soni 
progressivcmcnt dctaill6cs : 
modifications du nombre de, piste.^, de 
secteurs, d'octets oti de nibbles; 
priSctdcnl des mSthodcs franchement 
abominables ; nonvel encodage des 
nibbles, allongement des temps de 
synchronisation, synchronisations 
angulaires. F.nfin, apparaisscnt les 
mdthodcs quasi-incopiables ; 
inlcrpistes ou spiraling par exemple. 



IT 47 27 71 72. 

VIP Technologies 

C/0 ISD Marketing, 20 Sieclcase 

Road N\'est, Markham 

Ontario T.^R 1D2. Canada. 

Word Perfect Corporation 



Pour illusirer ces m^ihodes, I'auteiir 
parscmc les chapitres des listings des 
principales routines 6tudl6es (a 
nouveau, seulement des routines de 
protection ; aucun listing n'est foumi 
pour dccrypter). 11 ne reste plus au 
lecieur qu'S prot6ger ses progiammes 
en crcant un cocktail de sa 
composition pour faire amplement 
transpircr les h€riiicrs d'Aldo Reset. 



MatStatMatli - Logma SA - 12, 
rue d'Anjou - 78000 Versailles - 
450 F 

IL nc s'agit pas la d'un livre mais d'une 
disquette propose.e en annexe dans 
I'ouvrage Excel efjicace public chez 
Ccdidnathan. 

MatStatMath regroupe un grand 
nombre de modeles de cakul 
uulisables avec Excel ct dcstinds au 
etudiants, professeurs ou, phis 

g6neralement, tous ceux qui ont 
besoin de manipulcr des statistiques 
ou nombres sous toutes le.iirs formes. 
Cette disquette coniient 6^ralemcnt une 
police dc caractcres en taille 6 points, 
baptises MicroCaracteres. 
MatStatMath est com mere ialisee par 
Logma SA, suci6l6 qai distribue aussi 
les fantastiques cartes Speedisk pom- 
Apple //. 



Le livre de PostScript®, par 
Bernard-Paul Eminet - Edition du 
P.S.I - 200 F 

II ne faut pas rechercher dans cet 
ouvrage une description exhaustive 
des possibilit£s dc PostScript. 11 s'agit 
plus d'une presentation qui pcrmct 
peut-6u-e de d6buter dans ce langage. 
Les exemples de ce livre sont pour 



2S8 West Cenlsr Street, Orcm 
Uiah 84057, USA. 
Zip Chip 

1 1926 Sania Monica Boulevard 
Los Angeles, C A 90023 , US A . , 

o 



I'essentiel lirfis de I'exccllcnt 
PostScript Language - Tutorial and 
Cookbook Chez Addtson-Wesley 
Publishing Compagny (fort beau 
livre, blen fait, rdalise avec gofil et 
elegance dont le seul inconvenient est 
d'etre en anglais), 

Pour un livre qui trailc du summum 
de la maTtrise dc Timpression sur 
LaserWriter et autres itnprimantes 
PostScript, on se demande pourquoi 
rauteur (pourtant ingcnieur chez 
Apple) listc des programmes sans 
montrer le r^sultat de leur ex&ution : 
avait-il une machine sous la main ? 
Ccla ne simplific pas la 
comprehension de I'ensemble. 
On reirouve dans cet ouvrage, 
bruialemem recopi6, le prograiinue 
paru dans Pom's 24 qui imprime 
joliment «PnstScript» : aucune 
rSffirence au nom de Tauteur, nieici 
pour lui... Si Ton ajoute le melange 
des polices de caractferes et le manque 
de goQt dans la niise eii page el les 
croquis, voici un livre bien decevanL 



ImageWrlter 11 - Manuel de 
reference - Apple Computer 
France/LuerEditious 

Comme toutes les documentations 
d'origine Apple, ccllc-ci est bicn faitc, 
claire et precise. De plus, les erreurs 
qui apparai.ssaient dans les editions 
antSrieures uJit appaiemment 
disparues. Ccl ouvrage est done 
indispensable lorsque Ton veut utiliser 
a fond riiiipriiiiaute ImageWritcr, 
pratiqucment toujours sous-employ<Se, 
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4) Transmission - 9 1. 

De: Arian ZELWER (AZ10) • 1 1 jan 88 22h35 
S'il vous plait, une question r 

- Ayant a cote du Mac+ un A//c avec iecteir 3,5 
pouces, est-il possible de r^cup^rer les fichiers textes - 
sous ProDOS/Appleworks - el les reprendre sous 
MacWrite ou Word ? 

Puis-je 6changer des fichiers par liaison directe entre ces 
deux machines ? 

Merci de votre aide. *" AZ10 "* 



horioge, ce qui est normal 

J'ai insiaile REBOOT.SYSTEM imporle de CalvaCom 
mais lors d'un boot, j'ai toujours le message : 
INSERER/REBOOT. 
Que faire ? 

En fait, vous n'avez pas besoin de REBOOT.SYSTEM 
puisque I'Apple lIGS comporte une carte horlogs. C'est 
votre version de PfoDOS qui ne la reconnait pas : il taut 
installer la version 1.3 ou 1.4 de ProDOS 8 sur votre 
volume AppleWrifer et tout rentrera dans I'ordre, les 
iichiers semt dat^s. 



Avec InterPom's sur le Mac et InterPom's sur le lie (et 
un cable de liaison ad hoc), vous pourrez transmettre les 
fichiers k 9600 bauds. 

Si vous transmettez le fichiers AppleWorks, vous 
h^riterez de codes de controle qu'il iaudra ^liminer en 
traitement de textes sur le Macintosh. 
Un conseil, demander ^ AppleWorks I'^impression dans un 
fichier texte (ASCII) sur tf/sgue". puis iransmetiez ce 
fichier nouvellernent cree : plus de codes de controle, peu 
de questions de presentation ^ r^gler A I'arriv^e sur le 
Macintosh. 



5) BonjouretS.O.S....-4l 

De: Jean-Pienre BCULETEX (JPB12) - 12 jan 88 08h31 

J'ai un problems avec un fichier texte DOS 3.3 et ce 
message ; Erreur code 107 ? Que doua-je faire ? Amities. 
(PS) quoi correspond le num6ro de cheque disqucttc 
Mac dans le bon de commande ? 

Erreur 107 : Bad Subscript error : vous tentez de sortir 
des limites d'un tableau ; par exemple, DIM A$(12) : 
PRINTA$(16). Devant une erreur dont on ne connait pas 
le code, le plus simple - a part corisuiter le manuel du 
Basic, du DOS ou de ProDOS - est de supprimer le 
ONERR qui r6cup6re les erreurs. Un nmsage en clair, et 
accessoirement en anglais, s'affichera. 
Le num^ro des disquettes Pom's represente le numiro de 
la revue a laqueiie elles correspondent. Ainsi, la disquette 
28 contient tous les iichiers listes dans la revue 28. 



5) Date avec AppieWriter Pom's 33 - 9i 

De: Jean-Marc MAYER (JMM13) ■ 02 jan 88 14h04 

Je rencontre un petit probleme avec "Date et 
AppieWriter" sur un GS. 

Sans programme de boot qui met la date dans les octets 
$BF90-$BF91, 1'utilitaire me dit : vous n'avez pas de carle 



En ce qui concerne REBOOT, si vous preferiez cette 
solution. Importez ^galement MODIF. REBOOT qui permet 
de changer le nom de volume qu'attend cet utilitaire. Autre 
solution transitoire, renommer votre volume de travail 
/REBOOT. 



3) Cable et Gestion bancaire (AR) - 351 
DeiThierry VICAIRE (TVIO) - 30 dec 87 21h03 

Je vous ennuie encore avec deux questions : 

1 ) J'aurais besoin d'un cable de 3 m pour relier mon Minitel 
1 B a mon MacPlus : quel serait le prix ? 

2) Concernant le programme de gestion de compte 
bancaire du numero 20 de Pom's : 

- est-if compatible HFS ? 

- fonctionne-t-ii obligatoirement avec Basic 2.0 ou son 
RunTime est-il suflisant ? 

- la ventilation des depenses peut-elle servir k 
ventiler les recettes ? 

1) 300,00 F franco 

2) Ce programme ne fonctionnera normalement en 
HFS qu'avec la version 3,0 du Basic Microsoft. 

- Basic 2.0 ou simplement RunTime 2.0 conviennsnt mais 

pas en HFS. 
• Non, seules les depenses sont ventilees. 



14) Graphisme et assembleur'AR* - 911 
DeiJean-Louis ROCHE (JLRIO) - 27 dec 87 23h06 

Problems : 

Un petit bonhomme traverse I'ecran ; 7 formes (shapes) 
detinissent le mouvement et un petit programme Basic 
s'occupe de I'affichage. Ceia fonctionne mais je me heurle 
h un ciignotement de I'ecran. 

Meme travail en assembleur, mais apres de vains essais, 
je constate que "ga clignote toujours" ; on est loin du 
defilement harmonieux que j'attendais... J'en conclus qu'il y 
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a une astuce de programmation certainement bien connue 
depuis la pr^histoire de I'informatlque ! 

Nous ne publions pas \e listing accompagnant ce message 
car la solution est effedivement comus : 
II suifit de tester I'octet $C019 $t de nWicher que 
lorsqu'il estpositif, c'est-d-ciire quV n'ya plus de bslsyage 
en cours. 

§1 BIT ?C01S 

BFL §1 
...routine d'afficha^e 

Cette solution n'est valat)le qu'en assembleur ; pour une 
question de Vitesse, pas question de tester en Basic ou 
meme d'appebr depuis le Basic ce micro-programmQ 
avant I'XDBAW. 



17) CIv'PomJransfert - 81 

De: Alexis APLOGAN (AA1 1) - 29 dec 87 1 1 h55 

Avec CIv pom's, je n'arrive pas a r^cuperer les 
applications impends de CalvaCom. Lors de la 
transformation par BinHcx 4, la lecture de Tappiication 
est interrompue par ERREUR CRC t$2A83). 
Merd de votre reponse. 

// est probable que vous syez importe voire application en 
mode 'er\registrement de textes' ce qui a conduit d un 
recodage das caracteres accer)tuis, dor}c a une erreur de 
'checksum'. II convient de se meltre en mode 
'enmgistrement de programmes'. 



10) Help Patchworks - 171 
De: Laurent AlUT! (U\24) - 26 dec 87 1 4h5; 




Ret. Pom's 33 Patchworks page 57 

Le patch qui remplace le caract^re "damier" par !e 

caractere souris "return" sur AppleWorlts 1.4 ne 

fonctionne pas, AppleWorks se plante et bloque le GS. 

Pourtant j'ai ex6cut^ S la lettre les indications. 

Y a t-ll une erreur dans les Pokes ? 

Amlcalemeit. 

Que vous dire 7 Non, ilr^'ya pas d'etreur, apres execution 
des pokes, nous obtenons le r&sultat escomptt II ne peut 
que s'agir d'une erreur d'adresse lots de la manipulation. 



6) Conseil. ■ 101 

De: Frangois MULLER {FM17) - 1 1 dec 87 15h31 

Je conseille aux utillsateurs du programme MinBas (Pom's 
27) de faire la modification suivante s'ils ne I'ont dcja 
faite- 

Ligne 795 ajouter CHR$(31) 9 apres le CHR$(1 4). 

Ceci provoquera un saut de 9 lignes sur votre IMW // et 
imprimera une page Minitel sur une page de papier , ce qui 
est plus pratique. 
Amities " FM " 



2)u cote des imprimantes LaserWriter 



On park cCu-ne nowmUe- versum du. PostScript intigri d {a 
Lajstj^WrittT diiponiBk att^'Etats-linii, mais qmd est k 
nu-wdro dt vcrsim de- votre impriimmte ? Tonr k suvoir, 
mPny^-Cid k pragmmme Chti d-deisaus. ildmm acus- 
soirenwnt k TumtBrt de pages imprimees et k jwm de 
rimprltmnte ; t'w t aussi Coccaswn de veirdes instructiims 
tion aSordevs darts k numeTo24 de (Poms. 
L' envoi it fait depuis un ^?^f^^c li Caide de DmmLoud on 
JwitTc?lt et depuis un Mppk //, par k part sine avec tout 
tmitement de u^tes. 

%! version TostScnpt 

/Times-'^man findfont 12 sadefont setfmt 

100 700 move to version (9{\312 de version :)sfwu> show 

100 6S0 moveta 31 string 

statusdict Begin printemame pagecount end 

6 string CVS (9\(jpm6re. de pcyes : )shcm slum 

100 T20 moveto (ImprimantA : ] show sfiow showpage 



Trois nomfeUcs Lase/H'riter sent praposees par Ptppk : 
[ongevite tripk, dcnsitc dcs noirs amcCiorcd cartottckcs pCiis 
duraBUs/ Bac de ZOOfmdics et/ enfin !, un Bac d cnvcloppes. 

* Lascfl^^ritcr FISC, dedU d m scuC 9i{acintos(ti pl^otee- 
parks routines Quick^^raiV diufit^fac : 4 paCiccs, iMo 
'Jifflm - 19900 7^ 

* Lascfi\^ter! I9^f dotce dc Cn demicrc version dc Tost- 
Script (42 ?), rapide et partagtaBU : 3S po[icts, llMo 
Hiptn, 29do %ra - 23 900 ffffT. 

* LascT^ritt-r I!9\QOCcon^m avtc tmproctsstur 68020 d. 
169i{ltz,2 0.4 fois ptusrapidtque fa Lasers. Tj(t£.nsions 
mcmoirc premies : 3 S polices, 19d^o '^m, jusqu'd. 12lMo 
liam -39 900J3tT. 

'EUes sont wnneciaBks un If^S ou h un TC (i Caide 
d'j^ppkfTaffcPCet unsystevie de inise A niveau duit madek 
a Cautre est preVu. 
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etttes citvnon.ces 



Ces petites annonces sont gratuites 
et reservees aux abonn^s. Elles 
doivent bien entendu concerner 
rinformatique. Pour les verttes de 
logiciels. I'annonceur doit nous faire 
parvenir une photocopie de la 
facture d'achat. 

Vends carte SSC (01/87) : 750 F - 
cable SSC/Minitel : 150 F - Disk j[ : 
1000 F — carte horloge (driver 
ProDOS a adapter) : 100 F — 
collection Micro-Systemes (20 a 
72) : faire offre. 

Jean-Marc Corazza - Le T^oulet - 
81600 Gaillac®63 57 06 96 

Vends tmprinnante Microline 80 
parallele connecteur Centronics ; 
1000 F. 

Michel Le Port «> 47 20 81 88, 
Calva MLP10 

Rectierche Langage Fortran UC3D 
original pour Apple //. 
Andre Moreau - 73, rue du Roleur ■ 
59300 Valenciennes © 27 45 16 12 

Vends logiciels pour PC & 
compatibles sous emballages scelles. 
Multipian 3, VP Expert : faire offre. 
Daniel Ronxin - Laignelet - 35133 
Fougeres«99 9933 71 

Vends Apple //e 65C02 128Ko, 
Moniteur ambre. 2 lecteurs l40Ko, 



ventilateur, pav6 numerique, 
juystick : 5000 F — Machine a ecrire 
Underwood ^lectronlque a 
marguerite avec memoirs : 3500 F. 
M. Calvet ® 45 97 44 82 



Recherche Connpllateur C Aztec 
d'origine, complet avec documen- 
tation pour Apple //e, 
Norbert Steinberg - 24 avenue du 
Moulin - 7B23Q Le Pecq ® dom ; 39 
58 42 71 ® Bx 64 46 26 50 



Contact Pour partager experience 
en assembleur, prendre contact 
avec : 

Emmanuel Bougeard - 3Bis 
boulevard des 3 croix - 35000 
Rennes © le week-end 99 69 37 06 



Recherche programmes d'origine : 
The Bridge, MultiScribe 2.0, logiciels 
d'astrologie, Asironomie, Genealogie 
sur Apple //, Mac, IBM et tous 
logiciels de demonstration en version 
Itmit^e, 

Club informatique Forlf^ext - 15 
square Cosies 91070 Bondoufle © 
64 97 67 09 CalvaCom CI10 & PB16 



Vends machine \ Ecrire IBM a 
spheres : 1 500 F 

Maurice Trecul - 3, boulevard tie 
Verdun - Moigny sur ecole - 91490 
Milly-la-Foret© (1)64 98 42 35 




Comme promis, nous avons 
tire au sort des noms parmi 
les bulletins d'abonnement 
depuis parution du dernier 
numero. 

M. Michel Cosset de 
Caudebec en Caux a repu un 
traitement de texies, M. 
Jean Rumeau, un trai- 
tement de lextes double d'un 
programme de mailing, M, 
Patrice Verdun de Villiers 
le Mahieu, un traitement de 
textes, et M. Bertrand 
Guillin d'Epernay un 
tableur. 

Felicitations et rendez-vous 
au prochain numero pour le 
resultat de notre sondage et 
un autre tirage au sort parmi 
les abonnes (rappelons que 
nous offrons programmes de 
valeur et documentation 
techniques). 
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Horisori'talefTi^rvt 



1 - Courroies 

2 - Tel Balzac 

3 - Vraiment protestarite 

4 - Opaline 

5 - Flo-tie - By e-by e 

6 - n peut s'agir d'une zone 

7 - Mai vieilli - Arc en ciel 

8 - Empotes 

9 - Va au fast foot - Debarrasee 1 - Degoutt^r - Fins des fleaux 
V^rticalement 



1 - Cuirs equestres 2 - Vit sur la Loire mais pas dans la Loire 
3 - Vooiferante 4 - Certaine argile 5 - Boue - Aufwiederschen 
6 - P*ut tourner a la psy chose 7 - Permet aux IBM d'y voir clair 9 
- Nacres 8 - Retouches 9 - Lunch - De moins en moins 
1 - Exhaler - Chevilles 
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Nous avons d^couvert 

qu'on peut avoir 
le sens cles a&ires... 

Avoir le sens ties aflaires est devenu niomraie coui'aiite. 

Rien n'est plus banal que de coniniencer une entreprise a deax 
dans un garage, et de la retrouver 10 ans plus tard dans les 200 plus 
grarides entreprises amfiricaines. 

Ce qui est plus rare, c'est de conserver les vraies valeurs et d'avoir 
le sens de la famille. 

Dc 1984 a 1987, Macintosh a beaucoup progresse. 

Sa mfeioire s'est considerablement etendue, de 1 a 8 mega- 
octets, ses menus se sont sopliisUques, liierarcliisfe, sa bibliotneque 
de logjcieis est devenue gigantesque. 

Cependant, ii n'a jamais oublie ce qu'il avait appris de plus 
important: rhonime. 

Apres Macintosh Plus et Macintosh Sli, Macintosh 11 en est me 
noiwelle preuve. 



et celui de la fimille aussL 




1 ■ 

! ; 
'j' 



Its menus deroulants sont toujours presents, bien qu'ils se 
[feoulenl beaucoup plus vile. 

Les apacites grapliiques sont toujours les mfimes a l6 millions 
de couieurs prb. 

C'est une machine toujours aussi intuitive, disposant de 1 k 
8 megaoctets de memoire vive (et m&me plus), d'lin disqiie dur 
interne de 20 a 80 m^gaodets, pour que toute la logique de votre 
travail y trouvc son aisc. 

Ouvert h tous, Macintosh D est aujourd'hui ouvert a tout grace a 
ses 6 connecteurs d'extension. 

Mais pourquoi au juste les hommes ont-ils le sens de la famille? 

Parce qu 'ifs n' aiment pas renoncer a ce qui leur ^ 
est femilier, ni s'encombrerTesprit de regies inuti- — ^ 
les, et parce que le prog-Ss et Texperience doivent 
etre v&ojis comme un enrichissement et non comme 
un diangement systematique de methode. 

Et comme derrifire chaque utillsateiir se cache 
un Homme, noiK avnns en definitive encore plus 
le sens des affaires. Apple 

Macintosh II 




I 
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Revues Pom's 

n=8 35,00 FD 
40,00 FD 
40,00 FD 
40,00 FU 
45,00 FD 



n° 14 

n=24 
n°29 



n°10 
n*15 
n°20 
n"25 



40,00 FD 
40,00 F D 
40,00 FD 
40,00 FD 
45,00 FD 



n°26 
n"31 



40,00 FD 
40,00 FD 
40,00 Fn 
40,00 FD 
45,00 FD 



nM2 
nM7 



40,00 FD 
40,00 FD 



n*22 40,00 FD 
n^ZT 45,00 FO 
n°32 45,00 FD 



n° l3 40,00 FD 

n'18 40,00 FD 

n=23 40,00 F I I 

n=28 45,00 FD 

n°33 45,00 FD 



n=34 45,00 FD 



Disqueltes d'accompagnement de Pom's pour Apple ][, en 140Ko - 5,25 pouces 



n" 1+2 60,00 FD 



n°7 
n°12 

0^22 
□"27 
n°32 



60,00 Fn 
60,00 FD 
50,00 FD 
60,00 FD 
60,00 FD 
60,00 FD 



n°3 

nM8 
n° 23 
n»28 



60,00 FD 
60,00 FD 
60,00 F[ I 
60,00 FD 
60,00 FD 
60,00 FD 
60,00 FD 



n°9 

n°19 
n°24 
n°29 
n'34 



60,00 FD 
60,00 FD 
60,00 FD 
60,00 FD 
60,00 FD 
60.00 FD 
60,00 FD 



n'5 

n*15 
n'20 
n^25 
ti°30 



60,00 F □ 
60,00 FD 
60.00 FD 
60,00 F □ 
60,00 FD 
60.00 F I I 



n°11 
n'16 
n°21 
n''26 



'31 



60,00 FD 
60.00 F I i 
60,00 FD 
60,00 FD 
60,00 FD 
60,00 FD 



Disquettes d'accompagnement de Pom's pour Apple ][, en KX3Ko - 3,5 pouces 

n°29 80,00 FD r^30 80,00 FD n°31 80,00 FD n°32 80,00 FD 

n°34 30.00 FD 



rT*33 80,00 FD 



Disquettes d'accompagnement de Pom's pour Macintosh 

n°14+t5+1B 150,00 FU n"17 80,00 FD 
n°20 80,00 FD n°21 80,00 FG n°22 80,00 FD 
n°25 80,00 FD n''26 80,00 FD n°27 80,00 FD 
n°30 80,00 FD n^SI 30,00 FD n°32 80,00 FD 



n'l8 80,00 FD 

n°23 30,00 FD 

n*28 80,00 FD 

n°33 80,00 FD 



n° 19 80,00 FD 

n°24 80,00 FD 

n°29 80,00 FD 

n''34 80,00 FD 



Recueils dc la revue Pom's (rGgroupent quatre numeros de Pom's) 
n" 1 (revues 1 a 4) 140,00 F D 2 (revues 5 k 8) 140,00 F □ 
Disquette1a4 200,00 FD DisquetteSiS 200,00 FD 



n° 3 (revues 9 & 12) 1 40,00 FD 
Disquette9&12 200,00 FD 



Loglclels pour Apple ][ 

Pom_Link 3.0 140Ko 450,00 F □* 
Clv_Pom's UOKo 200,00 FD 
InterPom's 2,0 140Ko 200.00 FD 
EP.E 5.1 UOKo 200,00 FD 
Ordico140Ko 200,00 FD 



Pom_Link 3.0 8OOK0 450,00 F D* 
Clv_Pom'S BOOKO 200.00 F D 
InlerPom's 2.0 8OOK0 200,00 F D 
EP.E 5.1 8OOK0 200,00 FD 
Dominos i40Ko 200,00 F D 



BananaSo!t140Ko 200,00 FD 
Edit. Vlci6olex140Ko 200,00 FD 
Ludotagic 140KO 80,00 FG 
MaxMoniteurUOKo 150,00 FD 
COGO(src) 140KO 200,00 F I I 



Lxjgiclels pour Macintosli 

Excel efticacfi 400Ko 1 95.00 F D Excel efficace 8OOK0 175,00 F □ MacAstuces 
Pom Link 3.0 '450,00 FD Clv_Pom's 200,00 FD InterPom's 2.0 



200,00 FD 

450,00 FD 



Disquettes de bglclels 'domaine public' pour Macintosh 

Mac'A'D 'B'D 'CD 'D'D "E" D 'F'D 'G'O 'H'D 'I'D *J' D 80,00 F par disquette 



Reliurestoi!^espour6num6rosde Pom's (un an) :. 



.exQmplaire(s)^ 60,00 F, soil. 



Abonnements pour six numeros h partir du 

la revue Pom's seule 225,00 F D la revue et les disquettes Apple ]1 140K 525,00 F D 

la revue et les disquettes Apple ][ 800K 625,00 F □ la revue et les disquettes Macintosh 625,00 F D 
la revue Pom's, les disquettes Apple ][ UOKo - 5' 1/4 el les disquettes Macintosh 925,00 F D 

la revue Pom's, les disquettes Apple ][ 8OOK0 - 3' 1/2 et les disquettes Macintosh 1025,00 F I I 



Envoyez co bon ot voire r^lement i : tditiotis MEV - 12, rue d'AnJou - 79000 Versaiiles 

Nom : 



Adresse : ^ 

Reglementpar: CB/Visa/Euro/MasterCard D*. Chfeque bancaire D Cheque postal n Mandat D 

numSro de la carte date d'expiration 

Mcntant ,__F Signature: 

'Remise de 10%sur Pom_Ljnk3.1 pour les abonn^s 




Detecteur d'appels telephoniques 

Cet appaxell, pour Apple // ou BSaclntosh, autorlse une 
surveillance de la ligne t6J6phonique pour rutilisatlon de 
I'Apple comme serveur avec nn logiclel tel, par exemple, 
lUpom'deur public dans k num^ro 34 de Pom's. 

Cable-mterface Apple -* Minitel 

Pout foire fonctiotmer les progrmnines suivants : 

• Minitet/1 pour Macimosh, MinBas pour Apple 
//e, //e+, //c et lies ; programme pcrmcttant 
rearegistrement des ecrans Minitel. la restitution A loisir 
hoTS T€seau, le stockage et/ou rimpression de copies 
d'ecran du Minitel. et aussi renvoi de testes ou messages 
sur un serveur. Programme du numdro 27 de Pom's. 

• InterPom's 1.0 (et plus) pour Apple ![+. //e. //c+, //c. 
IIGS et Macintosh : programme de tfil^chargement entre 
Apple 1[ et/ou Apple U et Macintosh. Transmission de 
n'lmporte quel type de fichier (syst^me. texte, blnaire, 
Basic4..) en utlUsant le Modem du Minitel. Version I.O 
publifee dans le num6ro 28 de Pom's. 

• T_Fom's pour Apple JI+, //e, //e+, //c, IIGS* et 
Macintosh : r€cup6ration de I'annualre t^l^phonlque sous 
la forme de ficMere texte. Num^ro 30 de Pom's. 

» Clv_Pom's pour Apple //e. //e+, //c et llGS* et 
Macintosh : programmes de communication pour 
CalvaCom et serveuis 'ASCII'. NumSro 31 de Pom's, 

• Paint Minitel pour Mac et HGR — Minitel pour 
Apple ][+. //e, //e+. //c. IGS* : graphlsme et Minitel, 
programmes proposes dons le num^ro 33 de Pom's. 

• Repom'deur pour Macintosh, Apple ][+, //c, //c+, //c 
et IIGS* : rfepondeur/enregistreur tfilfematlaue 
Interrogeable & distance pubU£ dans Ic numdro 34. 

• sur un Apple IIGS, ce programme fnnctinnne 
indifferemment avcc le port serie integre ou la carte Super 
Serie Apple, Pour connecter le port integre du i/GS, utilisez 
un cable pour Macintosh Plus. 

K — 

Je desire recevoir : 

dfitecteur d'appels Apple // & 5O0,O0 F .* 

detecteur d'appels Macintosh & 500.00 F * 

cable Minitel/Apple // & SSC A 223,00 F 

cSble Miiiitel/J4>ple //c 4 £25,00 F 

cfible Minltel/Mac 128. 512K i 225,00 F 

cable Miiiitel/Mac Plus, nos a 223,00 F 

cfible Minltel/IBM PC™ fi 225,00 F 

cable de liaison locale** & 225,00 F 

' si mus etes abonnds, vous binijlciez d'une remise de 
10% sur teprix du detecteur, sait 450 F au lieu de 500 F. 

" prSciser le type des deux nutchines d relier : 
Mac 512. Mac Plus. Apple Ue. lie. UCS. IBM PC™ . 

Etwois par avion : ajoutez 13 F par cable tit/uu dctevtuur 

^aitions MEV - 12, rue d'AnJou - 78000 Versailles 

Nom ; 



Adresse 



En cas de liglement par CB/Vlsa/Ehirocard/Mastercard : 

num^io de la carte 

date d'ezpiration _ _ _ 

Montant * _ _ F Signature : 




Autamaliser 
AppleWorks™ 
version fran^aise 1.4 ? 
Utiliser la souris ? 



Programme americain 
sur disquette 8OOK0 
sur disqueUe 140Kq 




Apple ITp, lie nr 
RequirK AppleWorlci 7 i! 

or newer 



'aI'I'LEVVORKS^ 
2.0 OR LATER 



MACROWORKS 



AppleWorks™ Macro Power! Turn 
any series of keystrokes into a 
new one-keystroke command. 
Adds many new features to your Word 
Processor, Data Base and Spreadsheet. 




Version francis6e 
sur disquette 140Ko 

Documentation 

fran§aise 
Disquette Bonus 

de Dimitri Geystor 

Documentation 
americaine 



500,00 F 

abonnes a Pom's : 
450,00 F 

Frais de port 20^00 F 
Banc d'essai : Pom's 33 
Pom's - 12, rue d'Anjou 
78000 Versailles 
(1) 39 51 24 43 




